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Rund 
3® Seiten 
Listings für 

den TI 99/4A 


4 powerful, high-level programming language that 
expands the capability ofyour Ti-99/4 Home Computer, 
includes these teatures: 

More than 40 new or expanded commands, 

Statements, tunctions, and subprograms. 
Multiple-statement llnes for speed and efiiciency. 
Sprite (moving graphfcs) capability. 

Subprogram capability that lets you störe commonly 
used subprograms on diskette for use as needed. 

The ability to load and run one program trom another. 
Comprehensive program controf of errors, wamlngs, 
and breakpoints. 

Direct screen control of input and output. 

Support for loading and running TMS9900 Assembly 
Language programs it the optional Memory Expansion 
unit (sold separately) is attached to the Computer 

CONTENTS: Ti Extended BASIC module 

(36K bytes of preprogrammed 
Owner's reference 
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TIPS & TRICKS 
Rauen Sie sich 
einfach eine 

Zahlentastatur! 
Lieber digital 
als analog! 


Ein Trick, mit 

dem Sie 

Speicherplatz 

sparen: 

Einfach 

Nachdenken! 

Assembler 

leicht 

gemacht! 

Bit Map 
Mode im Ti« 
Assembler 
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MSX 
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CPS 99 mit einem Laufwerk 
DS DD = 360 K mit 32 K-RAM, 
2xRS 232, Centronics Interface 
Disk-Controller DS DD 


1.698,- 


Sanyo mpc 64 

deutsche Tastatur, Resettaste 

und Einschalter obenliegend, 

2 Modulslot 

MSX-Zubehör 


CPS 99 mit zwei Laufwerken 2.198,- 
DS DD = 720 K mit 32 K-RAM 
2 x RS 232, Centronics Interface 
Disk-Controller DS DD 

Externe Erweiterungen 


NEU - NEU - NEU - NEU - NEU - NEU 

256 K Byte RAM-Expansiop 
(RAM-Disk) 598,- 

- Ausbaubar bis 1 Megabyte . i 

- Betrieb mit vorh. 32K Byte Erweiterung möglich 

- Unterstützt Basic. Extended Basic u. Assembler 

- Erweiterter Befehlsvorrat für Basic u. Ext. Basic 

- Ultraschneller Zugriff auf bis zu 8 Programme 
durch RAM-Banklng (bei 256K-Verslon) 

- Wesentlich schnellere Bearbeitung von DIsk-Flles 

- Schnittstelle für Softcard eingebaut 

Alle Preise incl. MwSt. zuzügl. 5,- OM 

Versandkosten. Ueferung per Nach- 

nähme oder Vorkasse. li&m\ 

Ab 200.- DM versandkostenfrei. 

Fordern Sie kostenlos 
unsere Sonderpreisliste an. 


Disk-System 2,8“ QDM-01 398,- 

2,8“ Diskette 2x64 K (Quick-Disk) 
umfangreiche Software 
1 Jahr Garantie 

Disketten 2,8“ (10 Stück) 89,- 

Software auf Modul 

oder Quick-Disk ab 39,- 

MSX-Ensteiger-System 898,- 

bestehend aus: 

1 MSX Computer Yashica YC-64 
1 Disk-System 2,8“ (Quick-Disk) 

Für weiteres Zubehör und Software 
fordern Sie unsere kostenlose Preis¬ 
liste. 


I roruern oh* * 

unsere Sonde 


Programm-Service 


■III. 


D-5584 Bullay 
Bergstraße 80 
Telefon 06542/2715 


Wie immer steht unseren Lesern unser Telefon-Service 
zur Verfügung! Jeden Dienstag von 15 bis 19 Uhr. 
Für technische Fragen: 0731/33220 und 
für Listings/Programme: 089/1298013 


Wir lassen den TI-USER nicht im Stich! KARTEN FÜR 

. . • CPS 99: Das kompakte System! PERIPHERIE-BOX: 


CPS 99: Das kompakte System! 
2 x RS 232, 1 x Parallel Interface 
32 KByte, Speichererweiterung 
Disketten-Controller/Disk-Drive 

32 K RAM Erweiterung 
Centronics Interface 
V24 (RS 232) Interface 
32 K RAM + Centronics 
Exterrle Disk-Laufwerke 


Neu: 256 K-Speichererweiterung 
(RAM-Disc) 

• Bis 1 MB ausbaubar, umfangreiche Software' 
implementiert * . Für Basic + Ext + Assembler 

• 32 K RAM Erweiterung 

• Disk-Controller (bis zu 4 x 360 KByte) 

• Interface Karte mit 32 K RAM 

• Controller Karte mit 32 K RAM 




• RS 232/Centronics Karte • Controller Karte mit 32 K RAM 

FORDERN SIE DIE PREISLISTE AN! 

atronic-Produkte bekommen Sie bei jedem guten Tl-Händler oder direkt bei: 

Meiendorfer Weg 7 - 2000 Hamburg 73 • Tel. 0 40 / 6 78 93 08-09 • Tx. 2 174 031 
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INHALT 


DIALOG 


Musik mit dem Speechsynthesizer? 

Druckeranschluß klappt nicht 

DIN-Kassetten-Recorder-Buchse 

Speichertest 

VDP-RAM-Erweiterung 

Disc-Controler aufrüsten 

Ab Seite 4 


REPORT & 
SERVICE 


Clubs: 

Neue Adressen für Tl-User 

Auf Seite 6 

Assembler: 

Vier neue Hilfsroutinen 

Ab Seite 9 

Bit Map Mode 

Ab Seite 54 

Service-Karten 

Ab Seite 32 

Sortierprogramm: 

Kein Speicherraum? Es gibt doch 
genug — durch Nachdenken! 

AbSeite 12 

Börse: 

Zum Suchen und Finden 

Ab Seite 59 


TEST & 
TECHNIK 


Zahlentastatur: 

Bauen Sie sich selbst eine 
Zahlentastatur für den TI — 

Mit Stückliste und Schaltplan 

Ab Seite 7 

A/D-Wandler: 

Lieber Analog als Digital 

AbSeite 11 


LISTINGS 


Fallschirm: 

Wenn Sie schnell genug sind können 
Sie Menschenleben retten 
AbSeite 17 

Reaktionstest: 

Für Sie doch kein Problem — oder? 

Ab Seite 20 


Trull: 

Wenn sich der Wurm in den Schwanz 
beißt, ist er tot! 


Sprites drehen: 

Und sie bewegen sich doch! 

Ab Seite 

41 

Ab Seite 

23 

Darlehensberechnung: 


Astrolab: 

Für Astronomen und solche, die 
es werden wollen 


So sind Sie schneller als jede 

Bank — und genauer! 

Ab Seite 

43 

Ab Seite 

28 

Flush:- 


Masterplan: 


Kombiniere — kombiniere 

Ab Seite 

47 

Ein Rechenprogramm, das es in 
sich hat! 

Ab Seite 

37 

Magic Square: 

Alle Summen müssen gleich sein! 

Ab Seite 

52 


Grüß Gott—Gruezi—Guten Tag 


Mir müssen uns heute wieder ein¬ 
mal mit dem Gerücht „eines neuen 
TI 99" beschäftigen. Es wurde in 
den letzten Monaten viel davon ge¬ 
redet, daß dieser Nachfolger auf 
der CES in Las Vegas zu sehen sei. 
Richtig ist, daß Lou Philipp, Inha¬ 
ber der Fa. Myarc, bei seinem Vor¬ 
trag auf der T/-Show in Chikago 
dieses angekündigt hat. Nun, in 
Las Vegas stand kein funktionsfä¬ 
higer Computer von Myarc. Auch 
liegen uns mittlerweile ziemlich 
sichere Informationen vor, wp- 
nach Texas Instruments USA keh 
nerlei Lizenzen für die im Ti 99/ 
4A kompatiblen Computer zu ent¬ 
wickeln, macht es aber auch nicht 
unmöglich. 



In der letzten Zeit konnten wir 
aber auch einmal einen kleinen 
Bück in neue Entwicklungen für 
den TI 99/4A werfen. Wir dürfen 
zwar noch nichts Konkretes sagen, 
aber an was hier gearbeitet wird, ist 
schon mehr als interessant. Ja, der 
Schritt zu einem neuen kompletten 
Computer wird eigentlich immer 
kleiner, wenn man diese Entwick¬ 
lungen zu einem Gerät zusammen¬ 
faßt. Natürlich gehört zu der Pro¬ 
duktion eines neuen Computers ne¬ 
ben einer Menge Know-how auch 
das entsprechende Kapital und ein 
Vertrieb. 

Vielleicht schreiben Sie uns einmal, 
welche Vorstellungen Sie von ei¬ 
nem Nachfolger für den TI 99/4A 
haben. Also: wieviel KB-RAM, ob 
voll kompatibel zu dem bisherigen, 
ob Hardware anschließbar sein muß 
usw. Natürlich darf nicht fehlen, 
wieviel Geld er ungefähr kosten 
dürfte. Vielleicht können wir eini¬ 
gen Firmenmanagern damit dann 
genauere Vorstellungen von Ihren 
Wünschen vermitteln. 

Bis zum nächsten Monat grüßt Sie 
Ihr TI-REVUE-Team 


Nicht vergessen: Seid Ihr mit dem 
Heft zufrieden, sagt es weiter, seid 
Ihr unzufrieden, sagt es uns. 

Und: Jeden Dienstag von 15 bis 19 
Uhr stehen Ihnen unsere Lesertele¬ 
fone zur Verfügung. 

Für technische und Assembler-Fra¬ 
gen Tel.-Nr. 0731133220 und zu 
den Listings bzw. Fragen zu den 
Abonnements und dem Kassetten¬ 
service Tel.-Nr. 089/1298013. 
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MUSIK MIT DEM 
SPRACHSYNTHESIZER 


Gratulation — die TI- 
REVUE ist die beste User- 
Zeitschrift für den TI. 

Der Hochglanzumschlag 
fehlt dem neuen Heft kei¬ 
neswegs, der größere Um¬ 
fang ist dagegen eine ech¬ 
te Bereicherung. Auch das 
monatliche Erscheinen 
kann ich nur begrüßen - 
also nur weiter so! 

Nun zu meinen Fragen: 

Der Sprachsynthesizer 
nutzt die 3 Soundgenera¬ 
toren in der Konsole nicht. 
Wie erzeugt er die Klänge 
und kann man ihn aus 
Assembler auch zum Mu¬ 
sikmachen nutzen? 

In Heft 9 habt ihr eine 
128K GRAM-Karte er¬ 
wähnt. Der GROM Read- 
bzw. Writepointer hat 
aber nur 16 Bit und kann 
damit nur 64K adressieren. 
Wie kommt der größere 
Adressraum zustande? 
Nutzt der TI die ange¬ 
steckte GRAM-Karte von 
sich aus (z.B. zur Spei¬ 
cherung von Variablen) 
oder kann man diese Kar¬ 
te nur aus Anwenderpro¬ 
grammen nutzen? 

Gibt es eine Möglichkeit, 
in Ex-Basic als Pokelisten 
geschriebene Assembler¬ 
programme so abzusaven, 
daß sie mit CALL LOAD 
(“CS1“) wieder geladen 
werden können? 

Wo gibt es die Platine für 
die in Heft 9 beschriebene 
32K-Erweiterung? 

Peter Jakobs, 

Pfaffing 

Der Sprachsynthesizer be¬ 
sitzt einen eigenen 
,,Sprachprozessor“ aus der 
Texas-Instruments TMS 
5200 Familie und zusätz¬ 
lich ein besonderes 
,,Speech-ROM“. In letzte¬ 
rem ist ein fester Wort¬ 
schatz gespeichert. Aus 
Assembler kann der 
Sprachprozessor aber auch 
direkt programmiert wer¬ 
den (Näheres dazu steht 
im Editor-Assembler 
Handbuch). Nun läßt sich 
bei dem Sprachprozessor 
auch der Tonfall und die 
Tonhöhe in gewissen 
Grenzen programmieren. 


Damit läßt er sich auch 
zum Erzeugen von völlig 
entfremdeter Sprache be¬ 
nutzen. Das läßt sich aber 
wohl besser mit dem Be¬ 
griff Geräusch als mit 
Musik charakterisieren. 
Zusätzlich zu den Sound¬ 
generatoren kann man ihn 
aber durchaus zur klang¬ 
lichen Verbesserung der 
Musik einsetzen. Es ist 
richtig, daß die GROM’s 
einen internen 16-Bit- 
Zähler zur Adressierung 
verwenden. Somit ist der 
maximal adressierbare 
Bereich auf 64 KByte be¬ 
schränkt. Nun ist im Be¬ 
triebssystem des TI 99/ 
4A aber eine wesentlich 
bessere Dekodierung der 
GR OM-Zugriffsadresse 
vorgesehen, d.h. der TI 
99/4A kann von der 
Software her durchaus 


sein, und vielleicht hören 
wir darüber demnächst 
von einem unserer Leser? 
Die Platine für die 32K- 
Byte-Erweiterung ist nun, 
nachdem doch eine ge¬ 
wisse Nachfrage besteht, 
bei der Fa. Elektronik 
Service, Linning 37, 

4044 Kaarst 2, erhältlich. 


DRUCKERANSCHLUSS 


Leider funktioniert der 
Silver Reed EB50 Plotter 
nicht an meinem TI. 

Ich habe das gleiche Ka¬ 
bel verwendet (Centro¬ 
nics), welches mit dem 
Epson FX80+ hervorra¬ 
gend klappt. Wenn ich 
den Plotter zum Testen 
auf „Drucker“ stelle, 
dann wird eine Sequenz 
nicht übertragen. Das Pro¬ 


LESERBR1EFE UND FRAGEN SIND UNS STETS 
WILLKOMMEN. WIR BEANTWORTEN SIE ENTWEDER 
DIREKT ODER AUF DER LESERBRIEFSEITE 


GROM’s einmal auf 
9800 und andererseits 
auf 9804 usw. anspre¬ 
chen. In der Konsole feh¬ 
len zwar die entsprechen¬ 
den Bausteine dafür, aber 
extern kann man dies 
durchaus noch machen. 
Insgesamt sind 16 ver¬ 
schiedene GROM-Zugriffs- 
adressen vorgesehen, so 
daß insgesamt 1 MByte 
GROM( GRAM) ange¬ 
schlossen werden kann. 
Der Bereich der GRAM- 
Karte ist vor allem An¬ 
wenderprogrammen Vor¬ 
behalten. Allerdings exi¬ 
stiert auch schon eine 
kleine Software, die 
GRAM's als RAM-Disk 
für das Basic bzw. Ex- 
tended Basic nutzbar 
macht. Bisher ist uns kein 
Programm bekannt, wel¬ 
ches Pokelisten gleich 
wieder in Tagged-Object- 
Code umwandelt, wie 
Texas Instruments dies 
nennt. So bleibt momen¬ 
tan nur der Weg über ei¬ 
nen Disassembler mit 
nachträglichem neu 
Assemblieren. Prinzipiell 
dürfte es aber möglich 


gramm bleibt stehen, als 
ob der TI auf einen Be¬ 
fehl wartet, daß er wei¬ 
termachen soll. Drücke 
ich auf CLEAR, wird der 
erste Buchstabe der Se¬ 
quenz gedruckt. An ei¬ 
nem anderen Computer 
funktioniert der Plotter 
einwandfrei. 

Welche Pin’s müssen mit¬ 
einander verbunden sein? 
Ich besitze die Original¬ 
schnittstelle von TL 
Jekabs U. Leititis, 

Lahntal 

Solche Anfragen erhalten 
wir sehr viel und hier 
möchten wir doch gleich 
mal alle Leser bitten, uns 
bei einer derartigen Fra¬ 
ge gleich eine Kopie der 
Pin-Belegung der Druk- 
kerschnittstelle mitzu¬ 
schicken. Wir haben bei 
der Vielzahl der auf dem 
Markt erhältlichen Druk- 
ker nicht alle Unterlagen 
in unserer Redaktion. - 
Ganz allgemein für den 
Anschluß von Centronics- 
D ruck er n an die origina¬ 
le Tl-Schnittstelle gilt: 
Handshake Out am TI 


ist Strobe am Drucker, 
Handshake In am TI wird 
mit BUSY am Drucker 
verbunden. Dazu werden 
natürlich noch alle Da¬ 
tenleitungen und Masse 
(GND) verbunden. Die 
weiteren Leitungen am 
TI bleiben offen. Am 
Drucker kann es sein, daß 
bestimmte Anschlüsse 
(z.B. INIT, oder Linefeed) 
noch auf einen bestimm¬ 
ten Pegel gelegt werden 
müssen. Bei dem hier er¬ 
wähnten Beispiel liegt der 
Fehler aber wahrschein¬ 
lich nicht in der Kabel¬ 
verbindung, sondern an 
der Tl-Schnittstelle. Diese 
ist nicht unbedingt voll 
Centronics-kompatibel 
(wobei allerdings keine 
Norm für Centronics- 
Schnittstellen besteht), 
auch wenn es mit den mei¬ 
sten Druckern überhaupt 
keine Schwierigkeiten 
gibt. Der TI setzt das 
Signal Handshake Out nur 
von High auf Low und er¬ 
wartet dann eine Bestä¬ 
tigung vom Drucker über 
Handshake In (Busy), be¬ 
vor er es wieder au f High 
setzt. Manche Drucker 
übernehmen das Zeichen 
aber erst (entgegen dem 
üblichen Standard bei 
Centronics), wenn Strobe 
wieder auf High s teh t. 

In diesem Fall kann man 
probieren, das Signal 
Handshake Out (Strobe) 
mit Hilfe eines 74LS06 
zu invertieren. Die Strom¬ 
versorgung des IC’s kann 
dabei über den Ausgang 
“10 Ohm nach plus 5 V“ 
vom TI geschehen. 

Hilft das nicht, so bleibt 
nur eine Änderung des 
Betriebssystem der RS 
232-Schnittstellenkarte 
übrig. Wir haben eine 
solche Änderung schon 
bei einem User gesehen, 
aber bisher ist dies nicht 
im Handel erhältlich. 


DIN-KASSETTEN¬ 

REKORDERBUCHSE 


Gibt es für den 3buchsi- 
gen Cinch-Stecker des 
TI-Kassettenrekorderka- 
bels einen Adapter fin¬ 
den 5poligen DIN-Stek- 
ker, der an vielen Kasset- 
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tenrekordern vorhanden 
ist? Ist dies überhaupt 
möglich? Wenn ja, welche 
Firma stellt einen solchen 
her oder kann man ihn 
einfach selber bauen? 
Christoph Schmid, 
Ditzingen 

Leidergibt es auch bei 
den Spoligen Kassetten¬ 
buchsen keine völlig all¬ 
gemein gültige Norm. 
Wichtig ist, und dies ist 
nicht bei allen Rekordern 
der Fall, daß auch der 
Kopfhöreranschluß des 
Rekorders auf. der 5poli- 
gen Buchse liegt. Sonst 
geht es nicht. Der Auf¬ 
bau des Adapters ist dann 
ziemlich einfach. Bei den 
Klinkensteckern des TI- 
Anschlußkabels befindet 
sich Masse immer auf 
dem längeren hinteren 
Teil des Steckers. Verbin¬ 
den Sie nun Masse TI- 
Kabel mit Masse an der 
5pöligen Buchse, den 
Mikrofoneingang mit 
Mikrofon vom TI und 
den Kopfhörerausgang 
entsprechend. Die PIN- 
Belegung Ihres Rekorders 
finden Sie in der Anlei¬ 
tung dazu. 


SPEICHERTEST 


Ich besitze einen 99er mit 
Extended Basic und einer 
externen Speichererweite¬ 
rung. Wenn ich an die 
Adresse 8198 den Wert 
255 poke. dann meldet 
sich der Rechner mit 
Syntax Error und nimmt 
anschließend keine Poke- 
Befehle mehr an (wie vor 
CALL INIT). Genau das 
gleiche passiert bei Adres¬ 
se 8199. Bei allen ande¬ 
ren Bereichen der Spei¬ 
chererweiterung (Adresse 
-24576 bis-250 und 8192 
bis 8197 plus 8200 bis 
16383) läßt sich der Wert 
0 und 255 poken und 
auch wieder peeken. Ist 
meine Speichererweite¬ 
rung defekt? 

Reinhard Kern, 

Krems 

Wir haben die Routinen 
des Extended Basic bis¬ 
her nicht vollständig ana¬ 


lysiert, deshalb können 
wir leider nur etwas un¬ 
genau Auskunft geben. 
Auf 8198 und 8199 steht 
ein Pointer, der bei CALL 
LOAD benötigt wird. 
Wenn dieser verändert 
wird, kann sich der Com¬ 
puter falsch verhalten. 
Warum es aber gerade zu 
einem Syntax Error 
kommt, können wir leider 
auch nicht sagen. 


VDP-RAM ERWEITERN 


Ich hätte einige Fragen an 
Sie zu richten: 


Kann man das VDP-RAM 
erweitern (wegen Kasset¬ 
tenbetrieb) und wenn ja, 
wie? 

Wieviel KB ROM sind am 
TI maximal anzuschlie¬ 
ßen? Ich habe am I/O- 
Port eine Reset-Taste an¬ 
geschlossen (PIN 3/PIN 
43 über 100 Ohm). 
Allerdings zeigt diese 
Taste in keinem Betriebs¬ 
zustand (auch wenn der 
Computer abgestürzt ist) 
eine Wirkung. Ist etwas 
falsch? Welchen Sinn hat 
dann diese Taste? 

Gibt es eine Möglichkeit, 
Module von anderen Fir¬ 
men (Atari, Colecovision) 
an den TI anzuschließen 
(evtl, über einen Adapter)? 
Gibt es in Ihrem Assem¬ 
bler-Sonderheft ein Pro¬ 
gramm, welches das Pro¬ 
grammieren von Assem¬ 
bler unter Extended Basic 
ermöglicht? 

Gerald Fingerlos, 
Eisbethen 

Das VDP-RAM wird voll 
von dem Video-Display 


Prozessor TMS 9929 ver¬ 
waltet. Dieser ist auf die 
16KByte beschränkt, die 
im TI 9914A vorhanden 
sind. Ohne einen anderen 
VDP wird es daher keine 
Möglichkeiten geben, das 
VDP-RAM zu erweitern. 
Selbst mit einem anderen 
VDP, z.B. dem neuen 
MSXII Video-Chip, der 
ja voll softwarekompati¬ 
bel zum TMS 9929 sein 
soll, wird es schwierig, 
da das Betriebssystem 
des TI 99/4A von diesem 
Extra-RAM keine direk¬ 
te Kenntnis nimmt. Der 


ROM-Bereich des TI 99/ 
4A läßt sich, wie bei nahe¬ 
zu allen Computern, 
durch bestimmte Techni¬ 
ken fast unendlich ver¬ 
größern. Eine sinnvolle 
Grenze dürfte für den TI 
bei ca. 1 MByte für reine 
ROM’s, also Betriebs¬ 
systeme bzw. Anwender¬ 
programme, liegen. Dazu 
können dann durchaus 
nochmal genausoviel 
RAM kommen. Aber wie 
gesagt, möglich ist alles. 
Abhängig ist das aber 
auch von der dafür geeig¬ 
neten Software, die ja 
auch geschrieben werden 
muß. 

Ihr Reset-Taster ist falsch 
angeschlossen. Dieser 
kann nur am Modulport 
realisiert werden (PIN 1 
und 29 über 100 Ohm 
und Taster verbinden). 

Die RESET-Leitungen 
des Modulportes und des 
I/O-Portes sind nicht 
identisch! 

Module anderer Firmen, 
die nicht besonders für 
den TI 99/4A hergestellt 


sind, können Sie nicht 
an den TI 99I4A anschlie¬ 
ßen. In diesen Modulen 
sind ja Assembler-Pro¬ 
gramme enthalten, die 
zum jeweiligen Prozessor 
passen müssen. Der TMS 
9900 kann mit einem 
Assemblerprogramm für 
einen 6502 nun einmal 
nichts anfangen, wie auch 
umgekehrt. 

In unserem Assembler- 
Sonderheft finden Sie 
einen in Basic geschriebe¬ 
nen Assembler für das 
Mini-Memory und auch 
für Extended Basic. 


DISK-CONTROLLER- 

AUFRÜSTUNG 


Ich habe einen TI 99/4A 
mit Peripheriebox und 
darin eingebautem Disket¬ 
tenlaufwerk. Da mir 
knapp 100KB Disketten¬ 
speichermöglichkeit zu 
wenig sind, möchte ich 
mir ein doppelseitiges 
Floppylaufwerk anschaf- 
fen. Dazu hätte ich ein 
paar Fragen: 

Kann man einseitig forma¬ 
tierte Disketten auch in 
doppelseitig/einfachdich- 
ten Laufwerken benutzen? 
(Ich benutze deshalb mo¬ 
mentan zweiseitige Dis¬ 
ketten, um sie später even¬ 
tuell auch in doppelseiti¬ 
gen Floppy-Laufwerken 
einsetzen zu können, oh¬ 
ne deren Kopf zu beschä¬ 
digen.) Funktioniert die 
Kombination doppelsei- 
tiger/doppeldichter Disk¬ 
controller und doppelsei¬ 
tiges/einfachdichtes Lauf¬ 
werk bzw. umgekehrt? 

Kann man einseitig forma¬ 
tierte 2D-Disketten in 
doppelseitigen/einfach- 
dichten Floppy-Laufwer¬ 
ken mit doppelseitigen/ 
doppeldichten Diskcon¬ 
troller benutzen? 

Matthias Sorba, 

Frankfurt 

Beim TI 99/4A ist alles 
aufwärts kompatib el, d.h.. 

Sie können ohne Proble¬ 
me und je nach Controller 
und Laufwerken gleich¬ 
zeitig ohne irgendwelche 
Schwierigkeiten bis zu 4 
verschiedene Disketten- 
formate benutzen. Wich- Xf 


Wie immer steht unseren Lesern 
unser Telefon-Service zur Verfügung! 
Jeden Dienstag von 15 bis 19 Uhr, 
Für technische Fragen: 0731/33220 und 
für Listings/Programme: 0 89/129 8013 
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tig ist erst einmal der 
Controller. Der Tl-Con- 
troller für die P-Box be¬ 
herrscht ein- und doppel¬ 
seitige Laufwerke, kann 
aber nur mit einfacher 
Dichte bespielen. Damit 
können Sie selbstver¬ 
ständlich (zumindest bei 
TI, bei anderen Compu¬ 
tern durchaus nicht) ein¬ 
seitig beschriebene Disket¬ 
ten in einem doppelseiti¬ 
gen Laufwerk abspielen. 
Umgekehrt natürlich nicht. 
Wenn Sie einen der neue¬ 
ren Controller haben, der 
auch mit doppelter Dich¬ 
te arbeiten kann, so kön¬ 
nen Sie ebenfalls wahllos 
durcheinander fahren, 
ausgenommen natürlich 
doppelseitige Disketten in 
einem nur einseitigen 


Nachdem wir in der letz¬ 
ten Ausgabe einen Erfah¬ 
rungsbericht eines Clubs 
hatten, wollen wir uns 
diesmal wieder den Club¬ 
vorstellungen zuwenden. 
Den Anfang macht heu¬ 
te der Monstervision- 
Club: 

Seit Juni 1985 gibt es nun 
den Monstervision Club 


Laufwerk abspielen. Übri¬ 
gens gibt es Laufwerke, 
die nur einfache Dichte 
können, so gut wie über¬ 
haupt nicht mehr. Sie 
können auch mit dem TI- 
Laufwerk in doppelter 
Dichte arbeiten, bei einem 
Controller für doppelte 
Dichte. Hört sich alles 
etwas kompliziert an? Ist 
es nicht: Das komfortable 
Diskettenbetriebssystem 
des TI 99/4A ermöglicht 
auch den gemischten Be¬ 
trieb. Wie gesagt, gibt es 
nur zwei Einschränkun¬ 
gen: Die Dichte, die der 
Controller kann und die 
Anzahl der Seiten, mit 
der die Diskette bespielt 
ist, muß zum Laufwerk 
passen. Alles andere erle¬ 
digt der Controller. 


für den TI 99 / 4A. Für die 
bisher knapp 40 Mitglie¬ 
der erscheint monatlich 
ein 32seitiges Clubmaga¬ 
zin, in dem es Soft- und 
Hardwaretests, eine Mo¬ 
dul- und Programmtausch¬ 
zentrale, kostenlose 
Kleinanzeigen, Modul- 
Rekorde, Tips und Tricks, 
einen speziellen Adven- 


tu re teil aus Österreich 
und vieles andere gibt. 

Eine Clubgebühr erheben 
wir nicht, jeder, der Inter¬ 
esse hat, kann Mitglied 
werden. Ein Club treffen 
gibt es vorläufig noch 
nicht, aber Vorschläge in 
dieser Beziehung werden 
immer gern angenom¬ 
men. Wer weitere Infor¬ 
mationen (bitte direkte 
Fragen stellen) oder das 
Clubmagazin (1 Ausgabe 
= 3,— DM in Briefmar¬ 
ken) haben will, der 
schreibt an: 

Monstervision Club, 
Uesener Ring 30, 

2807 Achim 

Die nächste Meldung 
kommt vom Computer- 
Club Aachen: 

Der Tl-Computer Club 
Aachen e. V. hat einen 
neuen Vorstand gewählt. 

1. Vorsitzender wurde 
Ulrich Prümmer, Schul¬ 
weg 23, 5108 Monschau / 
Kal., das Amt des 2. 
Vorsitzenden übt nun 
Alfred Scheller, Alte 
Vaalser Str. 65,5100 
Aachen aus und der Kas¬ 
senwart ist Paul Stein¬ 
busch, Jakobstr. 68, 

5100 Aachen. Die neue 
Geschäftsadresse ist Al¬ 
fred Scheller, Alte Vaal¬ 
ser Str. 65, 5100 Aachen. 
Anmeldungen und son¬ 
stige Vereinspost bitte 
nur noch an die obige 
Adresse senden. Die ge¬ 
nannten Personen stehen 
allen Ratsuchenden ger¬ 
ne zur Verfügung. 

Der Computer-Club Diet¬ 
zenbach hat sich, wie die 
folgenden Sätze zeigen 
etwas Interessantes aus¬ 
gedacht, was den örtli¬ 
chen Kontakt von TI- 
Usern fördern kann: 

Vor ca. 1 Jahr wurde in 
Dietzenbach bei Frank¬ 
furt/M ein Club gegründet, 
weil einige Personen Kon¬ 
takt zu anderen Compu¬ 
terfans knüpfen wollten. 
Dies hat auch ganz gut ge¬ 
klappt. Zur Zeit besteht 
der Club aus ca. 70 Leu¬ 
ten, fast alle gängigen 
Computer sind vorhanden. 
Allerdings hat der Club 


sich jetzt auf den TI 99/ 
4A spezialisiert. Wie üb¬ 
lich wurde anfangs viel 
Software getauscht. Jetzt 
kommt aber auch viel 
Hardwarebastelei dazu. 

Für die Clubzeitung wird 
noch Material gesucht. 
Außerdem versucht 
der Club, alle aufgeweck¬ 
ten TI-Freaks in eine Da¬ 
tei zu bringen, in der sich 
feststellen läßt, wo Kon¬ 
takte innerörtlich außer¬ 
halb des Clubbereichs zu¬ 
stande kommen können. 
Weitere Info möglichst ge¬ 
gen Rückporto, um die 
Clubkasse nicht zu über¬ 
fordern, bei: 

Peter Flick, 

Rosenweg 33, 

6057 Dietzenbach 1 

Für die Angehörigen der 
belgischen Streitkräfte 
wurde in Kempen ein 
Computerclub gegründet, 
der sich mit dem TI und 
Commodore beschäftigt. 
Der Name ist TRACK 77 
und Interessenten können 
schreiben an: 

Luc van den Eeckhuvt, 
Stresemannstr. 24, 

4152 Kempen 1 

Die letzte Clubvorstellung 
für heute bestreitet der 
Tl-Club Dortmund: 

Den Tl-Club Dortmund 
gibt es etwa seit 6 Mona¬ 
ten. Er besteht zur Zeit 
aus 12 Mitgliedern, und 
wir hoffen natürlich auf 
weiteren Zuwachs. Der 
Club entstand aus dem 
Bedürfnis, den Geldbeu¬ 
tel zu schonen. Deshalb 
haben wir uns entschlos¬ 
sen, eine „Kaufgemein¬ 
schaft ‘‘ für Hard- und 
Software zu gründen, näm 
lieh den Tl-Club Dort¬ 
mund. Da wir schon 
selbst schlechte Erfahrun¬ 
gen mit Kaufgemeinschaf¬ 
ten hatten, möchten wir 
darauf hinweisen, daß wir 
keine kommerziellen 
Ziele verfolgen. 

Eine Clubzeitschrift ist 
zur Zeit nicht geplant, 
was sich noch ändern 
kann. Weitere Informatio¬ 
nen sind zu erhalten bei: 
Tl-Club Dortmund, 
postlagernd 027971, 

4600 Dortmund 1 


ACHTUNG! 

TI'SPECIAL 
Nr. 4 kommt! 
Bestellcoupon 
auf 

Seite 33! 


CLUBSEITE 
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ZÄHLE» 

TASTATUR 
SELBST GEBAUT 

Jeder, der Programme hat, in denen er viele Zahlen eingeben 
muß (z.B. Fakturierungsprogramme), hat sich sicher schon einmal eine 
Zahlentastatur gewünscht. Ich habe mir Gedanken gemacht und eine 
solche Tastatur entwickelt. 


Man muß zunächst einmal unter¬ 
scheiden zwischen softwaremäßi¬ 
gen und hardwaremäßigen Zahlen¬ 
tastaturen. 

Die erstere ist am einfachsten an¬ 
zuschließen (z.B. am Joystickport) 
und dann per Software abzufragen. 
Das hat aber den Nachteil, daß die 
Tastatur nur in Verbindung mit ei¬ 
nem speziell dafür entwickeltem 
Programm lauffähig ist. Bei der 
Zahleneingabe im Direktmodus 
oder bei fertig gekauften Program¬ 
men würde diese Tastatur nicht 
funktionieren. 

Also habe ich mich für die zweite 
Art von Tastatur entschieden. Da 
trat natürlich sofort das Problem 
auf, wo und wie man die Tastatur 
anschließt. 

Da beim Anschluß der Tastatur der 
Rechner geöffnet werden muß, soll¬ 
ten es nur Leute machen, die wis¬ 
sen, wie man mit einem Lötkolben 
umgeht, oder die, die sich das Zu¬ 
trauen. 

Also dann an die Arbeit! 

1. Teile besorgen 

2. Rechneröffnen 

3. Tastatur. Spannungsreglerplatine 
und Hauptplatine aus dem Rech¬ 
ner nehmen 

4. Tastatur von der Hauptplatine 
am dafür vorgesehenen Stecker 
(J 100) abziehen. An dem an der 
Tastatur befindlichen Stecker er¬ 
kennt man auf einer Seite kleine 
aufgeprägte Zahlen von 1 bis 15 
bzw. 1 bis 14. Bei 15 steht die 
übliche Firmenwerbung. 

An diesen Stecker werden dann die 
im Schaltplan eingezeichneten Dräh¬ 
te angelötet oder an die Unterseite 
der Tastaturplatine, wo der Stecker 
wiederum angelötet ist, oder mittels 
eines Zwischensteckers, den man 
zwischen Tastatur und Hauptplati¬ 
ne steckt. Das ist die sauberste Lö¬ 
sung und es wird nichts an der Pla¬ 
tine verbrutzelt. Keinesfalls sollte 
man an der Hauptplatine herum¬ 
löten, das könnte nämlich ins Auge 
gehen! 


Sind dort nun alle Verbindungen 
angelötet, macht man sich späte¬ 
stens jetzt Gedanken, wie man die 
Verbindung aus dem Rechner führt. 


Am elegantesten wäre hier eine 15- 
polige Min D-Stiftleiste, wie auch 
am Joystickport, nur eben breiter. 
Jetzt bleibt nur noch die Frage, wo 
ich den Bohrer ansetze, um mein 
Gehäuse zu quälen! 

Am besten ist es links neben dem 
Joystickport (wo der Stecker na¬ 
türlich auch Platz hat) den Bohrer 
anzusetzen, da die andere Seite ja 
für den Expansionsport freigehalten 
wird (werden muß!). 

Jetzt kann man ganz einfach eine 15- 
polige Buchsenleite mit Gehäuse an 
die Zahlentastatur anschließen. 
Stichwort Zahlentastatur! Bis jetzt 
wissen wir immer noch nicht, wie 
diese Tastatur aussieht. 

Um das herauszufinden, hat mir fol¬ 
gende „Literatur“ weitergeholfen. 

1. Texas Instruments Technical 
Data, das jeder von TI zum Preis 
von 10,— beziehen kann (Kopie!). 

2. Die Schaltungsunterlagen zu der 
Tastatur, die von der Firma 
Bühler für 34,50 vertrieben wird 
(orig. TI-Tastatur). 

Nun hat man den Schaltplan der 
Tastatur und braucht jetzt nur noch 
den Schaltplan auseinanderziehen, 
um herauszufinden, welcher Pin mit 


welchem verbunden werden muß, 
um einen bestimmten Buchstaben 
auf dem Monitor erscheinen zu 
lassen. 

Ich habe dieses nun gemacht und 
auch direkt ausprobiert. 

Dabei ergibt sich ein Problem. Bei 
den Tasten + - x muß zusätzlich 
die Shifttaste gedrückt werden. Das 
heißt, es müssen zweifache Taster 
her. Man kann aber auch, wenn man 
will, auf die +—x/.-Operationen ver¬ 
zichten, was die Tastatur auch bil¬ 
liger macht, oder sehr teure Taster 
kaufen oder die Taster der TI-Tasta¬ 
tur auf seine Bedürfnisse zurechtbie¬ 
gen (vorausgesetzt, daß sie offen 
sind!). Man kann die Tastatur aber 
auch noch um ein Cursortastenfeld 
bereichern, was aber die selben Pro¬ 


bleme aufwirft wie die mit der 
Shifttaste. 

Als Tastaru kann zum Beispiel 
herhalten: 

Eine Tastatur aus einem defekten 
Fernsprecher, Membran- oder Fo¬ 
lientastaturen, die direkt in einer 
kompletten 4x4-Matrix geliefert 
werden oder Anreihtaster oder fer¬ 
tige Zahlentastaturen, die aber 
teuer sind. _ 

DIE KOSTEN 


Die Tastaturen bewegen sich so zwi¬ 
schen DM 10,- (Conrad 709050) 
und DM 35,— (Bühler); Anreihtasten 
kosten ca. 1,20 DM pro Stück, von 
denen man in der kleinsten Ausfüh¬ 
rung 12 Stück braucht. 

Man kann sich natürlich auch eine 
Zahlentastatur, wie sie z.B. für 
Atari angeboten wird, kaufen, für 
die Kleinigkeit von 90,— DM! 

Wenn man sich also bei Conrad die 
Telefontastatur für 10,-, die beiden 
Stecker für ca. 9,— und ein Gehäuse 
für ca. 4,— kauft, kommt man mit 
ca. DM 23,— aus. Man kann natürlich 
die Stecker auch weglassen, hat dann 
aber die Zahlentastatur immer mit 
am Rechner hängen! Es empfiehlt 
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sich weiterhin, das Kabel, das von 
der Zahlentastatur zum Stecker 
führt, am Stecker auch an den Num¬ 
mern 1 — 15 anzulöten, an denen 
sie auch im Rechner angelötet sind 
(J 100)! Das erleichtert eine even¬ 
tuelle Fehlersuche!!! 

Viel Spaß mit der neuen Zahlen¬ 
tastatur. R. Garikow 


Nun aber zur Verbindungstabelle: 

13 mit 4 ergibt Shift 

15 mit 4 ergibt ENTER 
9 mit 8 ergibt 1 
9 mit 3 ergibt 2 
9 mit 2 ergibt 3 
9 mit 1 ergibt 4 
9 mit 7 ergibt 5 

14 mit 7 ergibt 6 
14 mit 1 ergibt 7 
14 mit 2 ergibt 8 
14 mit 3 ergibt 9 
14 mit 8 ergibt 0 

14 mit 2 und 13 mit 4 ergibt x 
11 mit 4 und 13 mit 4 ergibt + 

11 mit 8 und 13 mit 4 ergibt - 
11 mit 8 ergibt / 

11 mit 4 ergibt = 


Stückliste: 

1 Min D-Stiftleiste zum Einbau in 
die Konsole 

1 Min D-Buchsenleite mit Gehäuse 
1 lOpoliges Kabel (wenn so aufge¬ 
baut wird wie in der Schaltung) 

1 Zahlentastatur, Drucktastenfeld, 
Membrantastatur oder entspre¬ 
chende Anzahl von Anreihtastern 
(z.B. Conrad) oder Tl-Tastatur 
(Bühler) je nach Geschmack 
1 Gehäuse für die Zusatztastatur 


ZAHLENTASTATUR für denTI99/4A 
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SERIE 


ASSEMBLER 

LEICHT 

GEMACHT 

Auch beim letzten Mal sind wir nicht ganz mit den 
Hilfsroutinen des TI 99/4A fertig geworden. Es fehlen noch vier, die es 
erlauben, Variablenwerte zwischen Assembler-Programmen und Basic- bzw. 
Extended-Basic-Programmen zu übergeben, wobei alles folgende für 
beide Möglichkeiten gilt. 


Benötigt werden diese Routinen na¬ 
türlich nur für Assembler-Program¬ 
me, die vom Basic aufgerufen wer¬ 
den und auch wieder zum Basic zu- 
rückkehren. z.B. eine einfache Scroll- 
routine, bei der die Anzahl der Zei¬ 
len, um die gescrollt werden soll, 
durch eine Variable bestimmt wird. 
Diese Hilfsroutinen sind bei den 
Modulen Mini-Memory und Exten- 
ded Basic direkt vorhanden, beim 
Editor/Assembler müssen sie von 
der Diskette seladen werden (Datei 
“BSCSUB“). 

Diese Hilfsroutinen nun müssen wir 
in zwei Gruppen unterteilen, einmal 
für numerische Werte und einmal für 
String-Variablen. Beide Typen arbei¬ 
ten aber prinzipiell gleich. Bleiben 
wir aber zuerst bei NUMASG und 
NUMREF für numerische Variablen. 
NUMREF dient uns dabei, den Wert 
einer Variablen vom Basic an das 
Assemblerprogramm zu übergeben, 
NUMASG bewerkstelligt genau das 
Gegenteil, es ändert also den Wert 
der Variablen im Basic. Beide Rou¬ 
tinen werden mit BLWP aufgerufen. 
Bevor wir dies aber tun, müssen ei¬ 
nige Register mit wichtigen Werten 
geladen werden: RO muß 0 sein, 
wenn es sich um eine einfache 
Variable handelt. Wenn es sich um 
ein Datenfeld handelt, steht hier . 
die Nummer des Elementes. 

Erfolgt der Aufruf unseres Assem- 
bler-Programmes z.B. mit CALL 
LINK(“XYZ“,A) oder CALL LINK 
(“XYZ“,A(4)), so sind das einfache 
Variablen und RO muß 0 sein. 

Steht aber CALL LINK (“XYZ“, 
A()) im Programm, so muß in RO 
die Nummer des Elementes im 
Variablenfeld stehen. 

Nun können wir mit CALL LINK 
ja bis zu 15 Variable übergeben in 
dieser Form: CALL LINK (“XYZ“, 
A,B,C,D,E,F). Dabei braucht die 
Hilfsroutine natürlich noch den Hin¬ 
weis, mit welchem der verschiede¬ 
nen Variablennamen wir arbeiten 


wollen. Deshalb muß RI mit der 
Zahl, welche der Reihenfolge der 
gewünschten Variablen entspricht, 
geladen werden. Wollen wir also 
z.B. die Variable C aus dem Beispiel, 
so muß RI den Wert 3 enthalten. 

Es fehlt jetzt natürlich noch der 
Wert, der übergeben wird. Dieser be¬ 
findet sich immer auf dem Floating 
point accumulator (FAC), der vom 
Betriebssystem benutzt wird, also 
auf >834A. Numerische Werte bzw. 
Zahlen sind im Basic des TI 99/4A 
ja in einer besonderen Form abge¬ 
legt, die Texas Instruments als 
Radix 100 bezeichnet. Dabei stellt 


das erste Byte den Exponenten zur 
Basis 100 dar. Ausgegangen wird 
davon von >40 (dez. 64), welches 
0 entspricht. Der absolute Wert des 
Exponenten ist also der Wert des 
ersten Bytes minus >40. Ein nega¬ 
tiver Exponent (Zahlen kleiner als 


1) wird dabei durch einen Wert klei¬ 
ner als >40 ausgedrückt. Bei negati¬ 
ven Zahlen sind die ersten beiden 
Bytes durch das Zweier-Komple¬ 
ment der Zahl repräsentiert. Die. 
weiteren sieben Bytes enthalten 
dann jeweils 2 Stellen der Zahl. Das 
hört sich alles etwas kompliziert 
an, ist es vielleicht auch, aber in 
dieser Zahlendarstellung ist die Re¬ 
chengenauigkeit des TI 99/4A be¬ 
gründet. Zwei Beispiele: 

Die Zahl 1: 

>40,> 01 ,> 00,> 00,> 00,>00, 
>00,>00 
Die Zahl .30: 

>3F,> 1E,> 00,> 00,> 00,> 00, 

> 00 , >00 

Üblicherweise rechnen wir aber in 
Assembler-Programmen mit Integer- 
Zahlen, also 2 Bytes langen Zahlen. 
Dafür stehen uns im Betriebssystem 
die erforderlichen Umwandlungsrou 
tinen zur Verfügung, die über 
XMLLNK aufgerufen werden kön¬ 
nen. In den Listings 1 und 2, die die 
Anwendung von NUMREF und 
NUMASG zeigen, sind diese dann 
auch entsprechend benutzt. 

Für String-Variable gibt es mit 
STRREF und STRASG funktions¬ 
gleiche Hilfsroutinen, nur eben für 
Strings. R0 und RI müssen die glei¬ 
chen Werte wie bei NUMREF und 
NUMASG enthalten. Strings kön¬ 


nen ja aber nun bis zu 255 Bytes 
lang sein und so kann zurDberga- 
be FAC nicht benutzt werden. Des¬ 
halb muß in R3 ein Pointer vorhan¬ 
den sein, der auf den String bzw. ei¬ 
nen entsprechend großen Buffer im 
RAM zeigt. Dabei muß dem Text 


* LISTING 1 BEISPIEL FUER NUMREF IN EXTENDED BASIC 


* AUFRUF MIT CALL 

LINK ( 

"XYZ 

■ , A) 




DEF 

XYZ 






NUMREF 

EQU 

>200C 

* 

FUER 

MM! >6044, FUER E/A 

UEBER 

REF 

ERR 

EQU 

>2034 

* 

FUER 

MM: >6050, FUER E/A 

UEBER 

REF 

CF I 

EQU 

> 12B8 

* 

FUER 

MM UND E/A: >1200 



MYWS 

BSS 

32 






XYZ 

LWPI 

MYWS 







CLR 

R0 

* 

KEIN 

ARRAY 




LI Ri,>0001 * 1. VARIABLE 
BLWP QNUMREF 

CLR 3 >8354 * LOESCHEN ERROR 

BLWP 3XMLLNK * UMRECHNEN IN INTEGER 
DATA CFI 

MOVB 3>8354,R0 * FEHLER AUFGETRETEN? 
JNE ERROR 

* HIER WEITERES PROGRAMM 
JMP RETURN 

ERROR LI R0,>0200 * >2300 FUER MM 

BLWP 3ERR 
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MSX-Basic 

leicht 

gemacht 

IM TEST: 


STRASG EQU >2010 * FUER MM: >6048, FUER E/A UEBER REF 

TEXT 1 BYTE >08 * LAENGENBYTE DES FOLGENDEM TEXTES 

TEXT *TI-REVUE’ 


LWPI MYWS 
CRL R0 
LI RI,>000 
LI R2,TEXT 
BLWP 0STRASG 
JMP RETURN 


R0 * KEIN ARRAY 

RI,>0001 * 1. VARIABLE 

R2,TEXT1 * DORT STEHT DER STRING 

0STRASG * IN DAS BASIC UEBERGEBEN 


* WIRD JETZT IM BASIC PRINT B$ DURCHGEFUEHRT, ERSCHEINT 

* "TI-REVUE" AUF DEM BILDSCHIRM _ 


REVUE 


DAS MAGAZIN 
FÜR FREUNDE 
DER KOMPATIBLEN 

DW1 5.80/ÖS 49/SFR 5,80 


SERIE 


* LISTING 2 BEISPIEL FUER NUMASG IN EXTENDED BASIC 

* AUFRUF MIT CALL LINK("YZ",B) 


DEF YZ 

NUMASG EQU >2008 
CIF EQU >2000 


* FUER MM: >6040, FUER E/A UEBER REF 

* FUER MM: >7300, FUER E/A: >2300 


YZ LWPI MYWS 

LI RI,>1463 * DIESEN WERT SOLL DIE VARIABLE ANNEHMEN 
MOV RI,3>834A * AUF FAC 

BLWP QXMLLNK IN FLIESSKOMMAZAHL UMRECHNEN 
DATA CIF 

CLR R0 * KEIN ARRAY 

LI RI,>0001 * 1. VARIABLE 

BLWP QNUMASG 

RETURN CLR 0>837C * GPL-STATUS LOESCHEN 

LWPI >83E0 

B 0>0070 * R UECKKEHR INS BASIC __ 

* LISTING 3 BEISPIEL FUER STRREF IN EXTENDED BASIC 

* AUFRUF MIT CALL LINK("STR",A*) 

DEF STR 

STRREF EQU >2014 # FUER MM: >604C, FUER E/A UEBER REF 


BUFFER BYTE >FF 
BSS 255 


* BUFFER 255 BYTES LANG 

* 255 BYTES PLATZ 


STR LWPI MYWS 

CRL R0 * KEIN ARRAY 

LI RI,>0001 * 1. VARIABLE 
1 LI R2,BUFFER 

BLWP 0STRREF * STRING HOLEN 

* STRING IST JETZT IM BUFFER MIT VORANGESTELLTEM LAENGENBYTE 

* GGF. HIER WEITERES PROGRAMMEINFUEGEN 

JMP RETURN 

* LISTING 4 BEISPIEL FUER STRASG IN EXTENDED BASIC 

* AUFRUF MIT CALL LINK(“TR",B$) 


DEF TR 


Inweitdear- 

Software 

Mund 
30 Seiten 

Listings 


vorweg ein Längenbyte gestellt sein, 
die übliche Darstellung eines Strings. 
Die Listings 3 und 4 zeigen dafür die 
entsprechenden Beispiele. 

Es fehlt nun noch der Hinweis, daß 
die Routinen NUMREF, NUMASG, 
STRREF und STRASG automatisch 
mit der entsprechenden Error-Mel- 
dung zum Basic zurückkehren, wenn 
ein Error auftritt. Damit bleibt von 
den Hilfsroutinen nur noch eine ein¬ 
zige übrig: Die ERROR-Ausgabe. 
Diese führt aus dem Assembler-Pro- 
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. gramm ins Basic zurück und gibt da¬ 
bei eine Fehlermeldung aus. In RO 
(höherwertiges Byte) muß sich da¬ 
bei der Code für die entsprechende 
Error-Meldung befinden. Ein Bei¬ 
spiel dafür befindet sich schon in 
Listing eins, welches bei der Um¬ 
wandlung einer Fließkommazahl 
in eine Ganzzahl bei einem Über¬ 
lauf mit der Fehlermeldung 
“Numeric Overflow“ in das Basic 
zurückkehrt. 

Heiner Martin 
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Voraussetzung für den Anschluß eines A/D-Wandlers ist die 
in Heft 2 veröffentlichte Schaltung eines 8 Kanal I/O-Moduls. Dieses 
Grundmodul erlaubt den Anschluß von bis zu sechs Analog-Digital- 
Umsetzern vom Typ TL 507. Die Freigabe der sechs Bausteine erfolgt 
über die freien Leitungen des 74 LS 259, die mit den EN(Freigabe)- 
Eingängen verbunden werden. Die Ausgänge werden am IC 74 LS 251 INI 
bis IN6 angeschlossen. Der Aufwand für einen Kanal beläuft sich auf 
drei Widerstände, zwei Kondensatoren sowie einen TL 507. 

Mit wenigeren Bauteilen kann man eine Analog/Digital-Umwandlung nur 
schwer realisieren. Besonders wichtig bei der Verdrahtung dürfte die 
Masseverbindung sein. Alle benötigten Masseleitungen sollten von einem 
zentralen Punkt ausgehen, da ansonsten bei den Messungen Störungen 
auftreten können. Der hier verwendete Typ gestattet eine Spannungs¬ 
messung im Bereich von 1.25 Volt bis 3.75 Volt. 

Werden andere Bereiche benötigt, kann dies durch vorgeschaltete 
Operationsverstärker realisiert werden. Die maximale Auflösung des 
7 Bit A/D-Wandlers liegt bei 20 mV. 



* .* 

* CONTROLROUTINE FUER TL 507 * 

* * 

* * 

* PROGRAMM VON K-D REDEKER * 

* TID APRIL 79 * 

* * 
* . * 

* UEBERARBEITET VON * 

* REINER ZIEGLER * 

* DEZEMBER 84 * 

* * 



IDT 

’ A/D’ 



AORG 

>3000 

STARTADRESSE 


DEF 

INPUT 

PROGRAMMNAME 

CRU 

EQU 

>1200 

CRU-BASISADRESSE 

BUFFER 

BSS 

2 

BUFFER FUER WANDLERWERT 

MYREG 

BSS 

32 

EIGENER WORKSPACE 

SAVE 

BSS 

2 

BUFFER FUER BASICRUECKSPRUNG 

INPUT 

MOV 

11,SSAVE 

SICHERN RUECKSPRUNGADRESSE 


LWPI 

MYREG 

LADEN DER EIGENEN REGISTER 


LI 

RI2,CRU 

LADEN DER CRU BASISADRESSE 


SETO 

R6 

SETZEN CONVERSION FLAG 


LI 

R5,127 

STEZEN DES ZAEHLERS 


SBO 

0 

TL 507 RESET 


SBO 

1 

TL 507 POSITIVE CLOCKFLANKE 


SBZ 

0 

ENDE DES RESET 

LOOP 

TB 

1 

TL 507 TEST DES AUSGANGS 


JNE 

FLAG 

SPRINGE WENN NULL 


SBZ 

1 

TL 507 NEGATIVE CLOCKFLANKE 


CLR 

R6 

LOESCHEN CONVERSION FLAG 


SBO 

1 

TL 507 POSITIVE CLOCKFLANKE 


DEC 

R5 

SCHLEIFENZZAEHLER VERRINGERN 


JH 

LOOP 

SPRINGE FALLS GROESSER NULL 


LI 

R5,>7F00 

WERT FUER BEREICHSUNTERSCHREITUNG 


JMP 

OUT 

SPRINGE ZUR AUSGABEROUTINE 

FLAG 

MOV 

R6,R6 

TESTE CONVERSIÖN FLAG 


JEQ* 

OUT 

SPRINGE ZUR AUSGABE WENN NULL 

OUT 

LI 

R5,>FF00 

WERT FUER BEREICHSUEBERSCHREITUNG 

MOV 

R5,§BUFFER 

AUSGABE GEMESSENER WERT 


MOV 

§SAVE,RI1 

HOLEN BASICRUECKSPRUNGADRESSE 


B 

END 

*R11 

RUECKKEHR INS BASIC 


Nachfolgend möchte ich das Prin¬ 
zip einer Analog-Digital-Wandlung, 
am Beispiel des TL 507, näher er¬ 
läutern. 

Aus Bild 1 wird der zeitliche Ver¬ 
lauf einer Umsetzungsperiode er¬ 
kennbar. Zu Beginn der Messung 
wird softwaremäßig der Reset-Ein¬ 
gang des Bausteins angesteuert und 
der 7-Bit-Zähler somit auf Null ge¬ 
setzt. Die Sägezahnrampe hat die 
Vergleichsspannung 0.75*VCC1 
und somit ihren höchstmöglichen 
Wert. 

Sie bewegt sich erst zur unteren 
Grenze (0.25*VCCI), wenn der 
Reset-Eingang freigegeben wird. Da¬ 
nach sind 128 Clockpulse nötig, da¬ 
mit die Rampe den Bereich von 
0.75*VCC1 bis 0.25*VCC1 durch¬ 
fährt. Sollte, wie in unserem Beispiel, 
die Rampenspannung nach 75 Clock- 
pulsen mit der Eingangsspannung 
übereinstimmen, so geht der Ausgang 
des TL 507 nach “LOW“. Die Über¬ 
einstimmung wird durch einen Kom¬ 
parator (Vergleicher) festgestellt. 

Der Ausgabewert (128-75)=53, ist 
der Eingangsspannung direkt pro¬ 
portional. 


ACHTUNG AUF 
FEHLERMELDUNG 


Bleibt der Ausgang des A/D-Wandlers 
nach 128 Clockpulsen immer noch 
“HIGH“, so bedeutet dies ein Unter¬ 
schreiten des Meßbereiches, was die 
Ausgabe >7F00 (127/0) zur Folge hat. 
Bei einem Low-Signal des Ausgangs 
vor dem Zählvorgang handelt es sich 
somit um ein Überschreiten des Meß¬ 
bereichs, der durch die Ausgabe von 
>FF00 (255/0) angezeigt wird. 
Abschließend möchte ich noch auf 
eine mögliche Fehlerquelle hinweisen: 
Sinkt die Eingangsspannung unter 
0.25*VCC1, so erfolgt, wie oben be- 
schrieben, die Ausgabe >7F00. Fällt 2? 
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TECHNIK 


die Spannung jedoch weiter bis unter 
200 mVolt, so schaltet der Ausgang 
des TL 507 auf “LOW“. Dies hat die 
Anzeige “Bereichsüberschreitung“ 
(>FF00) zur Folge, was zu eventuel¬ 
len Programmfehlem führen kann. 
Dieser Fehler wird durch den ver¬ 
wendeten Typ verursacht, nicht 
durch die Schaltung. 

Nachfolgend komme ich zum nöti¬ 
gen Abgleich der Schaltung, um eine 
ausreichende Genauigkeit zu ge¬ 
währleistem____ 

DEMO-PROGRAMME 

BEACHTEN! 


Wurde der Nachbau erfolgreich be¬ 
endet, dann benötigen Sie das 
Demoprogramm 1. 

Legen Sie nach dem Programmstart 
eine, mittels Digitalvoltmeter über¬ 
prüfbare, Spannung an den Eingang 
des TL 507 (1-4 Volt). Verringern 
Sie diese soweit, bis sich der ange¬ 
zeigte Wert auf 127/0 beläuft. 

Nun verändern Sie die Spannung 
nur noch minimal, um den genauen 
Umschaltpunkt zu ermitteln. Notie¬ 
ren Sie sich die Spannung, bei der 
die Anzeige 0/0 oder 0/1 beträgt. 
Ebenso kann die obere Grenze bei 
0/125 oder 0/126 festgestellt wer¬ 
den. 

Meine gemessenen Werte: 
untere Grenze 

0/i 

1.3 Volt 
obere Grenze 
0/126 
3.8 Volt 
Differenz 
125 

2.5 Volt 

Nach diesen Werten muß die Zeile 
260 des Demo-Programms 2 eventuell 
korrigiert werden. 

WERT=untere Grenze +(B*2.5/125) 
WERT=1.3 + B/50 
Somit ist die Schaltung voll einsatz¬ 
fähig. 

Zum Schluß möchte ich noch den 
Einbau in ein größeres Programm 
beschreiben. 

Mit CALL LOAD(“DSKl.A/Dl“) 
Schaltplan: wird das Assemblerprogramm ab 

HEX 3000 geladen. CALL LINK 
(“INPUT“) führt eine komplette 
Analog-Digital-Umsetzung durch. 

Die Wandlerwerte können mit CALL 
PEEK(12288,A,B) abgefragt werden. 

A=127 B=0 Bereichsunterschreitung 
A=255 B=0 Bereichsüberschreitung 
A= 0 B=XX normaler Meßwert 

Nach diesen Ausführungen dürfte 
einer Spannungs-, Widerstands- oder 
Temperaturmessung nichts mehr 
im Wege stehen. Reiner Ziegler 

ACHTUNG!AUS PLATZGRÜNDEN FINDEN 
SIE DIE DEMO-LISTINGS AUF SEITE 4*J 


RICHTIGE STECKERBUCHSE 
(GROM PORT) MIT PINBELEGUNG! 


PIN 

DESCRIPTION 

PIN 

DESCRIPTION 

.1 

RESET 

.2 

FND(SYSTEM) 

.3 

D7 

.4 

CRU CLK 

.5 

D6 

.6 

CRU IN 

.7 

D5 

.8 

AI 5/CR U OUT 

.9 

D4 

10 

A13 

11 

D3 

12 

A12 

13 

D2 

14 

All 

15 

Dl 

16 

A10 


17 

DO 

18 

A9 

19 

+5 VOLT 

20 

A8 

21 

GSIGROM 

SELECT) 

22 

A7 

23 

MO/A14 

24 

A3 

25 

Ml (DBIN) 

26 

A6 

27 

GROM CLOCK 

28 

A5 

29 

-5 VOLT 

30 

A4 

31 

GR (GROM 
READY) 

32 

WE 

33 

GND (GROM) 

34 

ROM G 

35 

GND (SYSTEM) 36 

GND (SYSTEM) 



12 











TIPS & TRICKS 


KEIN RAUM 
IM SPEICHER? 

EINFACH 

NACHDENKEN! 


„Papa, ich brauche ein ausgedrucktes Register für 
meine Vorlesungsskripte." Das sagte unlängst mein 
Sohn. Ja, ich selbst hätte auch ein Literaturverzeichnis 
als Hard-copy bitter nötig. So begann das Blättern in 
Zeitschriften und Büchern. Wir haben dabei 
Programme genug gefunden, Programme für Adressen- 
Dateien. Telefon-Verzeichnisse, Schallplatten-Register. 

Prachtvolle Listings. Nur, wer Bytes zählen kann, 
merkt halt schnell, daß er trotz Erweiterungs-Box und 
Diskettenstation bald nach dem Anfängen — am Ende 
ist. Wenn er zum Ausdruck sortieren will! 


Warum? Selbst mit Box 
stehen im Stack rein 
rechnerisch 11,8 kBytes 
zur Verfügung. Bei einem 
längerem Verarbeitungs¬ 
programm schrumpfen 
diese schnell auf unter 
10 kB. Nun sind schon 
die üblichen 80 Bytes 
für einen Registerein¬ 
trag nicht allzu üppig, für 
Literaturzitate reichen 
sie kaum aus. Doch selbst 
bei 80 Byte-Satzlänge 
macht 10.000 durch 80 
knappe 125 Datensätze 
aus. Was ist das schon! 

Wer erst mit dem Sam¬ 
meln beginnt, hat dieses 
Limit schnell erreicht. 

Fast alle Dateiprogramme, 
die wir gefunden haben, 
arbeiten mit festen Satz¬ 
längen und sind überdies 
in Felder unterteilt. 

Schön: Das hat Vorteile. 
Man kann so auf der Dis¬ 
kette beim TI 99/4A 
RELATIVE abspeichem 
und damit auf jeden ein¬ 
zelnen Datensatz zugrei¬ 
fen. Mit zusätzlichen, in 
sich geordneten Registern 
zu den abgespeicherten 
Datensätzen oder mit so¬ 
genannten “Bäumen“ 
kriegt man auch größere 
Mengen in den Griff. 
Sofern man jeweils nur 
einzelne Datensätze her¬ 
ausholen und nicht das ge¬ 
samte Verzeichnis aus- 
drucken will. Aber diese 
Vorteüe werden mit einer 
erheblichen Platzver¬ 
schwendung erkauft. 


SPEICHER 

SPAREN 


RELATIVE-Dateien lau¬ 
fen auf dem TI 99/4A 
eben nun mal nur im 
FIXED-Format. Und das 
verschenkt viel Speicher¬ 
platz, denn die gewählte 
Länge muß so groß sein 
wie der längste Datensatz. 
Alle kürzeren Sätze wer¬ 
den mit Leerstellen aufge¬ 
füllt, die Speicher ver¬ 
brauchen, ohne Daten zu 
registrieren. Wer da einen 
geordneten und übersicht¬ 
lich formatierten Aus¬ 
druck haben will, weil er 
die Hardcopy im Hörsaal, 
in der Bibliothek oder 


sonstwo braucht, muß 
schon eine Engelsgeduld 
besitzen. Der Zugriff auf 
die einzelnen Sätze nach¬ 
einander benötigt un¬ 
heimlich viel Zugriffszeit. 
Was liegt also näher, als 
ausdruckfähige Verzeich¬ 
nisse über Dateien mit 
variabler Satzlänge zu ge¬ 
winnen. Dabei hängt man 
die einzelnen Datenfelder 
zweckmäßigerweise zu 
einem einzigen Datensatz 
zusammen und setzt da¬ 
zwischen ein beliebiges 


Trennzeichen. Das Stern¬ 
chen im ASCI-Code: 
42, bietet sich da zum 
Beispiel für die erste 
Trennung an, weil es in 
deutschen Literaturzita¬ 
ten kaum jemals zu fin¬ 
den ist. Für weitere Ab¬ 
teilungen nimmt man den 
Klammeraffen @, das 
$-Zeichen oder das “&“. 
Um die einzelnen Felder 
für den Druck oder einen 
anderen Zweck zu separie¬ 
ren, ermittelt man mit 
dem POS-Befehl die ent¬ 


sprechende Position im 
Datensatz und trennt 
dann mit Datenfeld$= 
SEG$(Datensatz$, 

POS+1 ,LEN(Datensatz$) 
—POS+1) ab. Der Erspar¬ 
niseffekt bei variabler 
Datensatzlänge beträgt gut 
und gern 25 - 40% des 
im FIXED-Format ver¬ 
brauchten Speicherplatzes. 
Eine ansehnliche Erspar¬ 
nis. Aber die reicht allein 
nicht aus. Der Trick, 
auch größere Mengen 
druckreif zu erhalten, 
liegt im zerlegen der Ge¬ 
samtmenge in Teilmen¬ 
gen, im überlegten Ver¬ 
teilen der zu großen Mas¬ 
se auf mehrere Dateien, 
deren Umfang im Arbeits¬ 
speicher zu sortieren und 
zu verarbeiten ist. Hier 
beginnt die genaue Ana¬ 
lyse der Struktur und des 
Mengengerüsts. Bei alpha¬ 
betischer Ordnung ist das 
Ordnungskriterium von 
vornherein klar und über 
die Häufigkeitsverteilung 
von Anfangsbuchstaben, 
zum Beispiel bei Namen, 
gibt’s Erfahrungswerte. 


JEDER KENNT SEIN 
HOBBY 


Anders sieht’s bei chemi¬ 
schen Substanzen, Verfah¬ 
ren und ähnlichem aus-. 
Vorsichtshalber wird man 
für jeden einzelnen An¬ 
fangsbuchstaben eine ei¬ 
gene Datei reservieren 
und für den Buchstaben 
“S“ sogar zwei. Bei einer 
sachlich gegliederten 
Ordnung, wie für gedruck¬ 
te Programme, Disketten, 
Bänder, Fundstellen oder 
Briefmarken usw., ist die 
Analyse erheblich 
schwieriger. Aber jeder 
Steckenpferdreiter kennt 
schließlich sein Hobby. 
Soweit, so gut. Wie aber 
läuft in der Praxis das Zer¬ 
legen in einzelne handel¬ 
bare Dateien? Erfahrungs¬ 
berichte darüber scheinen 
in den Homecomputer- 
Zeitschriften zu fehlen. 
Also probieren! Ich habe 
mit dem so ungemein 
praktischen APP END 
(s. Handbuch “Disk Me¬ 
mory System“, S. 35) 


TI-ASSEMBLER 
JETZT IM 


BUCHHAiflPEl. 

U-BEIM VERLAG 


Sfr 
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TIPS & TRICKS 


aus den einzelnen Einga¬ 
be-Portionen eine eigene 
Arbeits(Interims)-Datei 
bis zu der Größe aufge¬ 
baut, die noch in den 
Speicher paßt, diese dann 
mit einem SORT-Pro- 
gramm geordnet und 
schließlich mit dem Her- 
ausklaube-Befehl >IF 
SEG$(Datensatz$(I), 1,1) 
=“A... bis Z“< in FOR 
NEXT-Schleife auf die 
einzelnen fortlaufend 
numerierten Buchstaben- 
Dateien verteilt. Die 
aächstfolgende, aus wei¬ 
teren Eingaben angelegte 
Arbeits-Datei in Kern¬ 
speicher-Größe, mit einer 
weiteren Nummer, wird 
wiederum aufgeteilt und 
mit APPEND an die Buch¬ 
staben-Dateien angehängt. 


ES KLAPPT 


Am Ende steht nach ei¬ 
nem Ordnungslauf SORT 
der jeweils einzelnen 
Buchstaben-Datei eine 
ausdruckfähige Gesamt- 
Datei. Ein umständliches 
Verfahren — aber es 
klappt. Mit jedem Ord¬ 
nungskriterium. 

Die verschieden gezählten 
Dateien kann man dabei 
auf einfache Weise mit 
einem einzigen Subpro¬ 
gramm eröffnen. Man 
muß dazu nur die Unter¬ 
scheidung im Dateina¬ 
men auf das Einbeziehen 
der Datei-Nummer be¬ 
schränken. Also z.B. 

“2 1 Datei“ für die Datei 
mit der #21. In diesem 
Fall genügt die Umwand¬ 
lung der aufgerufenen 
Dateinummer in einen 
String mit Dateinummer 
$=STR$(Dateinummer). 
Damit funktioniert der 
OPEN-Befehl “OPEN 
#Dateinummer:“DSK 1. 
“&Dateinummer$&“_ 
Datei“,INTERNAL...“ 
klaglos und universell. 
Und beim Abarbeiten der 
einzelnen Dateien im 
Trennungslauf kann man 
mit Dateinummer=Datei- 
nummer+1 eine nach der 
anderen herbeizitieren. 
Ein kleiner Trick, der 
Programm-Ballast ver¬ 
meidet. 


Könnte man den Umweg 
über Arbeits(Interims)- 
Dateien, die man zusätz¬ 
lich sortieren und trennen 
muß, einsparen, so wäre 
das freilich eine elegante¬ 
re Lösung. Leider schei¬ 
tert der unmittelbare 
OUTPUT eines jeden ein¬ 
gegebenen Datensatzes 
in die nach dem Ord¬ 
nungsmerkmal zuständi¬ 
ge Datei auf der Diskette 
unter anderem am Zeit¬ 
bedarf für den Disketten¬ 
zugriff. So bleibt also nur, 
die eingegebenen Daten¬ 
sätze gleich beim INPUT 
auf ein Array (Datenfeld) 
zu verteilen, dessen Feld¬ 
elemente den zu bilden¬ 
den Dateien entsprechen. 
Ein jedes Element wird 
letztlich bei Abschluß 
der Arbeit oder bei Über¬ 
lauf als Datei auf die Dis¬ 
kette ausgegeben. 

Dabei wären natürlich 
über 20 IF THEN-Bedin- 
gungen ein ebenso übler 
Streich wie die Eingabe 
der Zuordnungs-Nummer 
per Hand. Die selbsttätige 
Zuweisung der ungezähl¬ 
ten Eingabe-Strings M$ 
an die Tichtige Stelle im 
Datenfeld muß also an¬ 
ders erfolgen. Ganz ein¬ 
fach ist die Nummer des 
Feldelementes Einzelda¬ 
tei, also der ersten Stelle 
im Index (..,..), aus dem 
Ordnungskriterium, zum 
Beispiel dem Anfangs¬ 
buchstaben, zu gewinnen, 
indem man den ASCI- 
Wert des 1. Zeichens mit 
ASC(M$) ermittelt. Die¬ 
ser Befehl liefert eine 
Zahl, die als Indexelement 
(T,I) unmittelbar die Stel¬ 
lung des Datensatzes im 
zweidimensionalen Array 
bestimmt. Dies bedingt 
allerdings ein Hilfs-Array 
Z(T), aus dem die Zäh¬ 
lung geholt, um 1 erhöht 
und nach Verwendung als 
Feldelement (Index) wie¬ 
der in das Hilfsarray Z(T) 
zurückgeschrieben wird. 

INPUT M$ :: T=ASC(M$) 
:: IF T>65 THEN 
T=T—64 - 

I=Z(T)+1 :: AS(T,1)=M$ 

:: Z(T)=I 

Beim automatischen 
OUTPUT auf Diskette 


nach Überschreiten eines 
gesetzten Limits I>X bil¬ 
det T-(Reduzierbetrag 
für Dateinumerierung) 
dann gleich die Dateinum¬ 
mer zum Aufruf der 
APPEND-Datei. Nach je¬ 
weils nur einem einzigen 
SORT-Lauf per Einzel- 
. Datei steht die Druck- 
Datei zur Verfügung. Ein 
selbsttätiges, idiotensiche¬ 
res Verfahren. 


BASIC 


Recht häufig hat man das 
Problem, daß eine CALL 
KEY-Eingabe oderein 
INPUT unabhängig von 
Groß- oder Kleinschrei¬ 
bung ausgewertet werden 
sollen. 

Die umständlichste, gleich¬ 
wohl aber weitest verbrei¬ 
tete Methode kostet un¬ 
nötigen Speicherplatz und 
auch Geschwindigkeit: 

100 INPUT “STICHWORT 
:“A$ 

110 IF A$=“PIPAPO“ 

THEN XXX 

120 IF A$=“PiPaPo“ 

THEN XXX 

usw. ... 

Nun liegt es nahe, den 
Input AS von vornherein 
auf Großbuchstaben zu 
normieren, indem vorher 
der Tastaturmodus 3 an¬ 
gewählt wird. 

Damit später wieder Klein¬ 
buchstaben angenommen 
werden, muß anschließend 
die Tastatur in den Modus 
0 zurückgesetzt werden, 
beispielsweise: 


Trick 17! Welchen der bei¬ 
den Wege Sie auch wählen 
— überlegte Mengenauftei¬ 
lung, das ist die Lösung 
des Massenproblems für 
eine druckfähige Datei. 

Und die variable Satzlänge 
mit APPEND-Dateien und 
SORT-Läufen hilft dabei. 
Sozusagen mit dem Kleinst- 
auto Massengut transpor¬ 
tieren. Aber es dauert halt! 

Peter Grimm 


100 PRINT “STICH¬ 
WORT: “, 

110GOSUB 1000 
120 IF A$=PIPAPO“ 
THEN XXX 

1000 CALL KEY(3,K,S) 
1010 INPUT“ “:A$' 

1020 CALL KEY (0,K,S) 
1030 RETURN 

Der Haken dabei ist, daß 
man vom Tastaturmodus 
3 auf diese Weise nicht 
herunterkommt — im Ge¬ 
gensatz zur Aussage des 
Handbuchs, wonach 
KEY(0) alle vorher defi¬ 
nierten Tastaturmodi auf¬ 
hebt. 

Hier wirken sich die Feh¬ 
ler des Basic-Interpreters 
im KEY-Unterprogramm 
aus, welche in abge¬ 
schwächter Form auch im 
Extended Basic auftreten. 
Ein einfacher Ausweg ist 
der, nicht in den Status 0 
zurückzukehren, sondern 
statt dessen auf den Ta¬ 
statur-Modus 5 zu schalten, 
welcher genau dieselben 
Codes erzeugt wie 
Modus 0. 

Mit der Zeile 

1020 CALL KEY(5,K,S) 


ZWEI 

METHODEN 

ZUR 

TASTATUR- 
EINGABE II 
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läuft das Programm an¬ 
standslos. 

Insbesondere bei nur we¬ 
nigen oder kurzen Einga¬ 
ben wäre ein gesondertes 
Unterprogramm zur Um¬ 
schaltung der Tastatur zu 
umständlich. 

Hier ist es effektiver, ei¬ 
nen Stringvergleich mit 
einer “Oder“-Verbindung 
der möglichen Eingaben 
vorzunehmen: 


100 INPUT “(J/N):“Q$ 

110 IF.(Q$=“J*‘)+Q$= 
“j“)THEN XXX 
oder: 

100 CALL KEY(0,K,S) 
110IF S=0 THEN 100 
120 IF (K=74)+(K=106) 
THEN XXX 

Eine elegante Lösung, die 
sehr zur Übersicht eines 
Programmlistings beiträgt, 
besteht darin. Groß- und 
Kleinschreibweise'von 


Eingaben durch voran¬ 
gestellte Definitionen zu 
vereinheitlichen, etwa so: 

10 DEF JA=(Q$=“J“) 
+(Q$=“j“) 

und 

20 DEF NEIN=(Q$=“N“) 
+(Q$=“n“) 

und es heißt dann später 
einfach: 

100 INPUT “(J/N): “:Q$ 
110 IF JA THEN XXX 
usw. ... 


Die spezielle Schreibweise 
für Funktionen des TI 99 
kommt diesem Verfahren 
sehr entgegen. Es ist des¬ 
halb so vorteilhaft, weil 
die einmal gemachten De¬ 
finitionen im ganzen Pro¬ 
gramm wirksam bleiben 
und nicht immer wieder 
eine Unterscheidungsrou¬ 
tine aufgerufen werden 
muß. 

Dieter Taube 


WINDOW-SIMULATION MIT EXBASIC II PLUS 


Ich möchte alle Besitzer des EXBASIC-II/ 
PLUS Moduls dazu anregen, sich mit eini¬ 
gen Befehlen noch näher zu. befassen. Es 
wurde schon einmal angedeutet: Es gibt 
nur wenige Programme, welche die mächti¬ 
gen Befehle dieses Moduls voll ausnützen. 

********************** 

* WINDOW-SIMULATION * 

(XBASICIIPLUS) * 

TEST-PROGRAMM * 

4 FENSTER WERDEN * 
IN BELIEBIGER FOLGE* 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 


MIT TASTEN 1,2,3,4 
ANGESTEUERT 


(unterbrechen 
’clear’) 


m i t 


Cami11e Kater 
L-7432 GOSSELDANGE 


* 

* 

* 

* 

* 

* 

* 

* 

* 


********************** 


260 ! 

270 CALL CLEAR :: CALL SCREE 
NOF 

280 WIN1=8192 :: WIN2=8961 : 

: WIN3=9410 :: WIN4*9731 
290 FOR X=1 TO 24 :: DISPLAY 
AT(X,1):"WIND0W1WIND0W1WIND 

owiwindowi" :: next x 

300 CALL MOVE(2,0,WIN1,768) 
310 FOR X=10 TO 24 :: DISPLA 
Y AT (X, 1) : "wi ndowwi r.dowwi ndo 
wwindowwind" :: NEXT X 
320 CALL MOVE(2,319,WIN2,448 
) 

Mit dem “CALL MOVE“-Befehl lassen 
sich zum Beispiel “Fenster“ speichern, die 
wir nach Belieben zur Anzeige bringen kön¬ 
nen. Das folgende Programm demonstriert, 
wie dies zu bewerkstelligen ist: 

Zeile 250- 340: 

Bildschirm wird abgeschaltet, damit Bild¬ 


aufbau unsichtbar wird; Bildfenster werden 
definiert (nach Belieben) und in den unte¬ 
ren Teil der Speichererweiterung gescho¬ 
ben. 

Zeile 350 - 440: 

Bildschirm wird wieder eingeschaltet; 

330 FOR X=14 TO 24 :: DISPLA 

Y AT(X,1):"3WIND0W3WIND0W3WI 
ND0W3WIND0W" :: NEXT X 

340 CALL MOVE(2,447,WIN3,320 
) 

350 FOR X=16 TO 20 :: DISPLA 

Y AT(X,10):"! !window! ! " : : N 
EXT X 

360 FOR X=0 TO 96 STEP 32 :: 

CALL.MOVE(2,491+X,WIN4+(X/3 
),10):: NEXT X 

370 CALL CLEAR :: CALL SCREE 
NON 

380 FOR X=0 TO 8 :: CALL COL 

OR(X,10,2):: NEXT X 

390 FOR X=9 TO 12 : CALL CO 

LOR(X,16,5)I: NEXT X 

400 CALL KEY(0,K,ST):: IF ST 

=0 THEN 400 

410 IF K=49 THEN CALL MOVE(3 
, WIN1,0,768) 

420 IF K=50 THEN CALL MOVE(3 
,WIN2,319,448) 

430 IF K=51 THEN CALL MOVE(3 
,WIN3,447,320) 

440 IF K=52 THEN 460 
450 GOTO 4.00 

460 FOR X=0 TO 96 STEP 32 : : 

CALL MOVE(3,WIN4+(X/3),491+ 
X,10);: NEXT X 
470 GOTO 400 

Fenster werden nach Wunsch (hier Tasten 
1, 2, 3, 4) auf den Bildschirm geholt. 

Diese “Fenster“ stehen zur Verfügung, so¬ 
lange die Speichererweiterung eingeschal¬ 
tet ist oder bis zum nächsten “CALLINIT“. 

Camille Kater 
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TIPS & TRICKS 



TI-BASIC 

UHR 


Dieses Programm ist für den TI 99/4A in 
der Grundversion geschrieben. Der Compu¬ 
ter fragt nach Uhrzeit und Weckzeit, nach 
der Eingabe beginnt der Rechner mit der 
eingegebenen Uhrzeit. Bei Übereinstim¬ 
mung der Uhrzeit und der Weckzeit ertönt 
ein lautstarker Ton, der durch Änderung 
der Zeilen 240-260 beliebig verändert 
werden kann. Die Schleife in Zeile 120, 

130 dauert fast genau 60 Sekunden. Daher 
hat dieses Programm einen Nachlauf von 
ca. 5 Sekunden pro Tag. 

Viel Spaß mit dieser ungewöhnlichen Uhr. 

Michael Brakhage 


10 CALL CLEAR 

20 INPÜT "STUNDE (1-24)"IST 
30 INPUT "MINUTE (1-60)"IMIN 
40 INPUT "WECKZEIT (STUNDE,M 
INUTE)"IWST,WMIN 
30 BTUNDE=ST 
60 MINUTE=MIN 
70 CALL CLEAR 

80 IF WST=STUNDE THEN 90 El-S 
E 100 

90 IF WMIN=MINUTE THEN 240 E 
LSE 100 

100 PRINT " H MIN"I I 

110 PRINT STUNDE;MINUTE 

120 FOR 1=1 TO 21423 

130 NEXT I 

140 MINUTE=MINUTE+1 

130 IF MINUTE=60 THEN 170 

160 GOTO 70 

170 STUNDE=STUNDE+1 

180 MINUTE=0 

190 IF STUNDE=24 THEN 210 

200 GOTO 70 

210 STUNDE=0 

220 MINUTE=0 

230 GOTO 70 

240 FOR Q=1 TO 50 

230 CALL SOUND(100,200,5) 

260 NEXT Q 
270 MINUTE=MINUTE+1 
280 GOTO 70 
290 END 


Sie haben ein Boot zu steuern, das Fall¬ 
schirmspringer auffangen soll. Diese sprin¬ 
gen aus einem Helicopter. Um die Springer 
aufzufangen, muß man genau unter ihnen 
sein, bevor sie die Wasseroberfläche errei¬ 
chen. Das Boot wird mit ‘F‘-Taste (links) 
und ‘J‘-Taste (rechts) gesteuert. Sie kön¬ 
nen zwischen zehn Schwierigkeitsgraden 
wählen (l=leicht, . . ., 10=schwer). Das 
Spiel ist zu Ende, wenn drei Fallschirm¬ 
springer ins Wasser gefallen sind. Drücken 
Sie dann die ‘J‘-Taste, um nochmal zu spie¬ 
len, bzw. die ‘N‘-Taste, um das Spiel zu 
beenden. 


REAKTIONS 


Am Anfang ist die Taste “S“ zu drücken. 
Danach erscheint eine vierstellige Zahl, die 
Sie sich bis zum Schluß des Spiels merken 
sollen. Nach einigen Sekunden kommt die 
nächste Aufgabe: Beim Erscheinen eines 
schwarzen Blocks ist der Feuerknopf zu 
drücken. Wenn zu früh gedruckt wurde, 
gibt es Strafpunkte. Je länger es dauert 
bis die Taste gedrückt wird, desto mehr 
Minus-Punkte gibt es. Die Punktzahl wird 

Bitte lesen Sie weiter auf Seite 20 


TI-REVUE 
jeden Monat neu 
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10 REM******************** 


11 REM* FALLSCHIRM * 

12 REM* * 

13 REM* Copyright by * 

14 REM* * 

15 REM* Jan Koehnlein * 

16 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 6940 Bytes * 


25 REM******************** 

26 REM 

100 REM ############# 

110 REM # TITELBILD # 

120 REM ############# 

130 CALL CLEAR 
140 CALL SCREEN(8) 

150 SC=0 

160 CALL CHAR(96, "FFFFFFFFFF 
FFFFFF") 

170 CALL CHAR(97,"0103070F1F 
3F7FFF") 


180 CALL CHAR(98,"80C0E0F0F8 
FCFEFF") 

190 CALL CHAR(99,"FF7F3F1F0F 
070301") 

200 CALL CHAR(100,"FFFEFCF8F 
0E0C080") 

210 CALL CHAR(104,"FFFFFFFFF 
FFFFFFF") 

220 FOR 1=1 TO 16 
230 CALL COLOR(1,1,1) 

240 NEXT I 

250 PRINT "K&K SOFTWARE PRAE 
SENTIERT:": : : : 

260 PRINT ".hhh hhh h. 

. . h.h. . . h h h. 

. . h.hhh hhh h. 

. . h.h. . . h h h. 

. . h." 

270 PRINT ". h_h h hh 

h hhh. 


' 'ba'. . - " 

280 PRINT ". 


' b ' cd *.' ' - - - ' 

* ' ' ' II 

290 PRINT "... . 

% % % % ll 

300 PRINT : : : : 

310 FOR 1=1 TO 8 
320 CALL COLOR(1,2,1) 

330 NEXT I 

340 CALL COLOR<9,13,1) 

350 CALL COLOR<10,14,1) 
360 CALL SOUND(-500,-1,0) 
370 CALL KEY(0,K,S) 

380 IF S=0 THEN 360 
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390 CALL CLEAR 

400 PRINT "KENNEN SIE DIE SP 
IELREGELN??(J/N)": : : : : : 

410 CALL KEY <0,K,S) 

420 IF S=0 THEN 410 
430 IF K=74 THEN 600 
440 IF K< >78 THEN 410 
450 REM ############### 

460 REM # SPIELREGELN # 

470 REM ############### 

480 CALL CLEAR 

490 PRINT ".FALLSCHIRM 

.": :"SIE MUESSEN 

DIE FALLSCHIRM-": :"SPRINGER 

MIT IHREM BOOT AUF-": : 

500 PRINT "FANGEN. SIE STEUE 
RN IHR BOOT": :"MIT DEN TAST 

EN: ": :"_F = LINKS": :".. 

. .J = RECHTS": : 

510 PRINT "JEDER AUFGEFANGEN 
E SPRINGER": :"GIBT 1 PUNKT. 

WENN SIE EINEN": :"NICHT AU 
FFANGEN, VERLIEREN": : 

520 PRINT "EINS VON IHREN 3 
LEBEN.": :"..(WEITER MIT EIN 
ER TASTE).." 

530 CALL KEY(0,K , S) 

540 IF S=0 THEN 530 
550 CALL CLEAR 

560 PRINT "WENN SIE ALLE 3 L 
EBEN VERLO-": :"REN HABEN, E 

RSCHEINT UNTEN": -."IHRE PUNK 
TZAHL. ZUM ERNEUTEN": : 

570 PRINT "SPIELBEGINN J, ZU 

M ENDE N": :"DRUECKEN. 

..VIELSPASS!": :"..(WEITER 
MIT EINER TASTE).." 

580 CALL KEY(0,K,S) 

590 IF S=0 THEN 580 
600 CALL CLEAR 

610 INPUT "SCHWIERIGKEITSGRA 
D(1=LEICHT—10=SCHWER)?":SCHW 
620 IF (SCHW<1) +(SCHW>10)THE 
N 610 

630 CALL CLEAR 
640 FOR 1=1 TO 16 
650 CALL COLOR(1,2,1) 

660 NEXT I 

670 DEL=125—SCHW*(1+SCHW) 

680 REM ######## 

690 REM- # DATA # 

700 REM ######## 

710 DATA 0000000000000000,00 
00000100000102,00F0B0F0F060F 
CFA,000000FFFFFF7F3F,020202F 
FFFFFFFFF,FAFAFAFFFFFFFEFC 
720 DATA 0F1F1F3F3F7F7FFF,F0 
F8F8FCFCFEFEFF,FFFF804747273 
70B,FFFF02848S90A040,0F17171 
70704040C,C0A0A0A0808080C0 


















730 DATA 007F011F3F7F6161,00 
FF80F0F8FCFFFF,000000000206F 
EFE,61617F3F1F043F00,FCFCFCF 
8F020FC00,00C3663C3C1818 
740 DATA 0000000000030307,00 
00000000C08000,073F7F4F1F3F7 
F6C,00C070F0C0C0E060 
750 DATA 40,0C0C0C0C18183030 
,41,3030606060606060,42,FFFF 
FFFFFFFFFFFF,43,F8FCFEFFFFFF 
FFFF,44,1F3F7FFFFFFFFFFF 
760 DATA 58,B553BC32EF49ED52 
,152,0609906006099060 
770 REM################# 

780 REM#CHAR—DEFINITION# 

790 REM################# 

800 FOR 1=64 TO 80 STEP 8 
810 RESTORE 710 
820 FÜR 11=0 TO 5 
830 READ A$ 

840 CALL CHAR(I+I1,A$> 

850 NEXT II 
860 NEXT I 

870 FOR 1=96 TO 144 STEP 8 
880 RESTORE 720 
890 FOR 11=0 TO 5 
900 READ A* 

910 CALL CHAR(I1+I,A$) 

920 NEXT II 
930 NEXT I 
940 RESTORE 730 
950 FOR 1=88 TO 93 
960 READ A* 

970 CALL CHAR(I,A*> 

980 NEXT I 

990 FOR 1=33 TO 36 

1000 READ A* 

1010 CALL CHAR(I,A$) 

1020 NEXT I 
1030 RESTORE 750 
1040 FOR 1=1 TO 7 
1050 READ A,A* 

1060 CALL CHAR (A, A-£) 

1070 NEXT I 

1080 REM ############# 

1090 REM # SPIELFELD # 

1100 REM ############# 

1110 A*="01039 :::: :::: 


1120 GOSUB 1240 

1130 A*="01236 :::: :: 

1140 GOSUB 1240 
1150 A*="01163XYZC\ " 

1160 GOSUB 1240 
1170 A*=" 11016! "SeCHR* <34> *c" ! 
"&CHR$(34)&"!"&CHR*(34)&"#$# 
$#$((())) *****+******* 
***********" 

1180 GOSUB 1240 



1190 A$=" 11285 ! "&CHR$ (34) & " 

! "?<CHR$ (34) &" #£#$ ( (--) ) 

, *******************" 

1200 GOSUB 1240 
1210 A-fc="03162'abcde" 

1220 GOSUB 1240 

1230 GOTO 1380 

1240 ZE=VAL(SEG$(A$,1,2)) 

1250 SP=VAL(SEG*(A*,3,2)) 

1260 J=VAL(SEG*<A*,5,1)) 

1270 K=0 

1280 FOR 1=6 TO LEN(A*> 

1290 IF K=J THEN 1300 ELSE 1 

330 

1300 K=0 
1310 ZE=ZE+1 
1320 SP=SP-J 

1330 CALL HCHAR(ZE,SP,ASC(SE 
G$<A$,1,1))) 

1340 SP=SP+1 

1350 K=K+1 

1360 NEXT I 

1370 RETURN 

1380 A^="08102hijklm" 

1390 GOSUB 1240 
1400 A*="08162xyz <. \ > " 

1410 GOSUB 1240 
1420 A*="14082pqrstu" 

1430 GOSUB 1240 

1440 DATA 7,24,136,137,138,1 

39,140,141,13,18,128,129,130 
,131,132,133,13,26,144,145,1 
46,147,148,149 
1450 FOR 1=1 TO 3 
1460 READ ZEILE,SPALTE 
1470 K=2 

1480 FOR 11=1 TO 6 
1490 READ ZEICHEN 
1500 IF K<>2 THEN 1540 
1510 K=0 

1520 ZEILE=ZEILE+1 
1530 SPALTE=SPALTE—2 
1540 CALL HCHAR(ZEILE,SPALTE 
,ZEICHEN) 

1550 SPALTE=SPALTE+1 

1560 K=K+1 

1570 NEXT II 

1580 NEXT I 

1590 A*="17083®ABCDE" 

1600 GOSUB 1240 
1610 A$="17163HIJKLM" 

1620 GOSUB 1240 
1630 A^="17243PQRSTU" 

1640 GOSUB 1240 

1650 CALL HCHAR(1,30,93) 

1660 CALL HCHAR(2,31,93) 

1670 CALL HCHAR(8,3,93) 

1680 CALL HCHAR(9,19,93) 

1690 CALL HCHAR(16,12,93) 
1700 CALL HCHAR(19,1,152,192 
) 
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1710 REM ######### 

1720 REM # COLOR # 

1730 REM ######### 

1740 CALL COLOR(1,3,1) 

1750 CALL COLOR(2,7,1) 

1760 CALL COLOR(3,16,1) 

1770 CALL COLOR(4,16,1) 

1780 CALL COLOR(5,1,1) 

1790 CALL COLOR(6,2,1) 

1800 CALL COLOR(7,1,1) 

1810 CALL COLOR(8,2,1) 

1820 CALL COLOR(9,2,1) 

1830 CALL COLOR(10,1,1) 

1840 CALL COLOR(11,1,1) 

1850 CALL COLOR(12,1,1) 

1860 CALL COLOR(13,1,1) 

1870 CALL COLOR(14,1,1) 

1880 CALL COLOR(15,1,1) 

1890 CALL COLOR(16,2,5) 

1900 C0L=9 
1910 CI=6 

1920 FOR 1=1 TO 500 
1930 NEXT I 

1940 REM ############## 

1950 REM # FALLSCHIRM # 

1960 REM ############## 

1970 GOTO 2040 

1980 NCOL=COL+l 

1990 IF NCOL>GC THEN 2040 

2000 COL=NCOL 

2010 CALL COLOR(NCOL-1,1,1) 
2020 CALL COLOR(COL,2,1) 

2030 GOTO 2210 

2040 CALL COLOR(COL,1,1) 

2050 CALL COLOR(9,2,1) 

2060 RANDOMIZE 
2070 R=INT(3*RND+1) 

2080 ON R GOSUB 2120,2150,21 


80 

2090 CALL COLOR(COL,2,1) . 
2100 CALL COLOR(9,1,1) 

2110 GOTO 2210 

2120 COL=10 

2130 GC=11 

2140 RETURN 

2150 C0L=12 

2160 GC=13 

2170 RETURN 

2180 C0L=14 

2190 GC=15 

2200 RETURN 

2210 FOR 1=1 TO DEL 

2220 NEXT I 

2230 DEL=DEL—3 

2240 IF DEL>1 THEN 2310 

2250 DEL=125-SCHW*(1+SCHW) 

2260 SC=SC+10 

2270 CALL SOUND(-100,-3,0,26 
2,5) 

2280 REM ######## 

2290 REM # BOOT # 
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2300 REM ######## 

2310 CALL KEY(0,K,S) 

2320 IF SO0 THEN 2350 

2330 GOSUB 2510 

2340 GOTO 2890 

2350 IF K< >70 THEN 2430 

2360 C1=C1-1 

2370 IF Cl< >4 THEN 2390 

2380 CI=5 

2390 CALL COLOR(CI,2,1) 

2400 CALL COLOR(Cl+1,1,1) 

2410 GOSUB 2510 

2420 GOTO 2890 

2430 IF K< >74 THEN 2330 

2440 C1=C1+1 

2450 IF CI08 THEN 2470 

2460 CI=7 

2470 CALL COLOR(CI—1,1,1) 

2480 CALL COLOR(CI,2,1) 

2490 GOSUB 2510 

2500 GOTO 2890 

2510 IF (Cl=5)*(C0L=11)THEN 

2560 

2520 IF (CI=6)*(COL=13)THEN 
2560 

2530 IF (CI=7)*(COL=15)THEN 
2560 

2540 IF (C0L=11)+(C0L=13>+(C 
0L=15)THEN 2600 
2550 RETURN 
2560 SC=SC+1 

2570 CALL SOUND(-1,-l,0) 

2580 CALL COLOR(COL,1,1> 

2590 RETURN 
2600 L=L+1 

2610 FOR 1=1 TO 30 STEP .5 
2620 CALL SOUND(-100,-5,INT( 
I) ) 

2630 NEXT I 

2640 IF L=3 THEN 2690 

2650 RETURN 

2660 REM ######## 

2670 REM # ENDE # 

2680 REM ######## 

2690 FOR 1 = 1 TO LEN < STR$(SC) 

) 

2700 CALL HCHAR(24,1+15,ASC( 
SEG$(STR$(SC),1,1))) 

2710 NEXT I 
2720 FOR 1=1 TO 4 
2730 CALL SOUND(10,220,0) 
2740 CALL SOUND(100,262,30) 
2750 NEXT I 
2760 FOR 1=1 TO 3 
2770 CALL SOUND(20,220,0,294 
,0) 

2780 NEXT I 

2790 CALL KEY(0,K,S) 

2800 IF K=74 THEN 2840 
2810 IF K=78 THEN 2820 ELSE 
2790 


Sfr 
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2820 

CALL 

CLEAR 

2830 

END 


2840 

CALL 

HCHAR (24,1, 152,3: 

2850 

SC=0 


2860 

L=0 


2870 

DEL=1 

25-SCHW*(1+3CHW) 

2880 

GOTO 

1740 

2890 

GOTO 

1980 


Fortsetzung von Seite 16 

REAKTIONS¬ 

TEST 

angezeigt. Zur Fortsetzung ist die Taste 
“W“ zu drücken. 

Es ertönt ein Ton, dessen Höhe Sie in der 
folgenden Tonreihe wiederfinden und da¬ 
nach den Feuerknopf drücken sollen. 

Die Bewertung ist wie im vorhergehenden 
Test. Das nächste Spiel wird durch die 
Taste “W“ eingeleitet. 

Es erscheinen nebeneinander zwei Ziffern. 
Wenn sie gleich sind, ist der Feuerknopf 
zu drücken. Nach der Bewertung die Taste 
“W“ drücken, und der nächste Test er¬ 
scheint. 

Ein Buchstabe, der am Bildschirm er¬ 
scheint, ist in der ABC-Reihe, die danach 
durchläuft, aufzufmden und der Feuerknopf 
zu drücken. Nach Bewertung leitet die 
Taste “W“ den nächsten Test ein. 

Wenn ein Ton ertönt, ist der Feuerknopf zu 
drücken. Mit der Taste “W“ wird das letzte 
Suchspiel eingeleitet. 

Mit einem Suchgerät in Form eines Schlüs¬ 
sels ist ein verlorener Schlüssel zu finden. 

Das Suchgerät wird mit dem Joystick über 
das Bild geführt. In der Nähe des gesuchten 
Objekts ertönt ein Ton. Wenn der verlore¬ 
ne Schlüssel gefunden wird, erscheint er 
am Bildschirm. 

Er erscheint die Bewertung und mit “W“ 
wird der letzte Schritt eingeleitet. 

Sie müssen nun die vierstellige Zahl eintip¬ 
pen, die am Anfang zu merken war. Dann 
Enter drücken. 

Nach “W“ erscheint die Gesamtbewertung. 
Das Reaktionsspiel kann in drei Schwierig¬ 
keitsgraden laufen, wobei Grad 1 die klein¬ 
ste Schwierigkeit aufweist. Am Anfang des 
Tests ist die gewünschte Schwierigkeit ein¬ 
zugeben. 

Vor dem Laden des Programms eventuell 
CALL FILES(l) und NEW eingeben! 

Peter Reichel 
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Die nächste 
TI-REVUE 

erscheint am 26. März 
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1 

********************** 

11 

i 

* 


* 

12 

; 

* 

REAKTIONSTESTS 

* 

13 

i 

* 


* 

14 

i 

* 

Copyright by 

* 

15 

i 

* 


* 

16 

i 

* 

Peter Reichelt 

* 

17 

i 

* 


* 

19 

; 

* 

Benoetigte Geraete 

* 

20 

i 

* 

TI99/4A Konsole 

* 

21 

i 

* 

Ext. Basic 

* 

22 

i 

* 

Joystick(1) 

* 

23 

i 

* 


* 

26 

i 

* 

Spei eherbeiegung 

* 

27 

i 

* 

.6147 Bytes 

* 

28 

i 

* 


* 

29 

i 

********************** 


100 CALL CLEAR 
110 RANDOMIZE 

120 CALL CHAR(100,"FFFFFFFFF 
FFFFFFF") 

130 FOR 1=0 TO 14 :: CALL CO 
LOR(I,6,16):: NEXT I :: CALL 
COLOR(5,4,16):: CALL COLOR( 
7,8,16) 

140 CALL COLOR(3,2,16):: CAL 
L COLOR(4,2,16) 

150 CALL D(5,4,"REAKTIONSTES 
T"):: CALL D(7,4,"'S* DRUECK 
EN") 

160 CALL D(10,5,"ddd d. 

.d..d. 

.d. .d TI_ 

.d..d....ti 

.d. . d_" ) 

170 CALL KEY (1 ,K,S) : : IF KO 
2 THEN 170 

180 CALL CLEAR :: INPUT "SCH' 
WIERIGKEITSGRAD 1-3(1LEICHT) 

?":Q :: IF Q>3 OR Q<1 THEN 
180 :: ON Q GOTO 190,200,210 
190 A7=60 :: B7=90 :: C7=120 
:: GOTO 220 

200 A7=40 :: B7=70 :: C7=100 
:: GOTO 220 

210 A7=20 :: B7=50 :: C7=80 
220 CALL CLEAR 

230 GE=INT(RND*2000)+1 :: IF 
GE<1001 THEN 230 
240 DISPLAY AT(5,4):"DIESE Z 
AHL SOLLTEN SIE SICH MERKEN: 

";GE :: CALL WAIT(800) 

250 CALL CLEAR :: CALL WAIT( 
400) 

260 ! 

270 !-1. - 

280 ! 

290 CALL D(5,4,"WENN EIN BLO 
CK ERRSCHEINT...FEUERKNOPF.. 

.DRUECKEN"):: CALL WAIT(800) 

:: CALL CLEAR 
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300 A=INT(RND*80)+1 :: IF A< 
20 THEN 300 

310 B=B+1 :: IF B>=A THEN 33 
0 :: CALL KEY<1,K,S):: IF K= 
18 THEN 320 :: GOTO 310 
320 C=C+10 :: GOTO 310 
330 CALL HCHAR(15,13,100,1) : 

: D=D+1 s: CALL KEY(1,K,S>:: 
IF K=18 THEN 340 :: GOTO 33 

0 

340 CALL CLEAR :: DISPLAY AT 

(9,4):"STRAFE:";C;" DAUER:"; 

D;" GESAMT:"; C+D 

350 CALL D(11,4,"'W’ DRUECKE 

N"):: CALL KEY(1,K,S):: IF K 

=4 THEN 390 ELSE 350 

360 ! 

370 !-2.- 

380 ! 

390 CALL CLEAR :: Bl=120 
400 CALL D(4,4,"HOERTEST") 
410 A1=INT(RND*2000)+30 :: I 
F A1<120 THEN 410 
420 CALL D(7,2,"DIESEN TON S 
OLLEN SIE HE—--.RAUS HOEREN 
UND FEUER DRUE- CKEN"):: CAL 
L SOUND(500,Al,0) 

430 CALL WAIT(900) 

440 Bl=Bl+30 :: IF Bl>=A1 TH 
EN 460 :: CALL SOUND(200,Bl, 
0):: CALL KEY(1,K,S):: IF K= 
18 THEN 450 ELSE 440 
450 C1=C1+10 :: GOTO 440 
460 D1=D1+1 :: Bl=Bl+30 :: C 
ALL SOUND(200,Bl,0):: CALL K 
EY(1,K,S):: IF K=18 THEN 470 
ELSE 460 

470 CALL CLEAR :: DISPLAY AT 
(4,10):"STRAFE:";C1;"DAUER: " 
;Dl;"GESAMT:";C1+D1 
480 CALL D(6,10,"' W' DRUECKE 
N"):: CALL KEY(1,K,S):: IF K 
=4 THEN 490 ELSE 480 
490 ! 

500 !-3.- 

510 ! 

520 CALL CLEAR 

530 CALL D(2,2,"WENN BEIDE Z 

AHLEN GLEICH_GROSS SIND F 

EUER DRUECKEN"):: CALL WAIT( 
1000) 

540 CALL CLEAR 

550 A2=INT(RND*9)+1 :: B2=IN 

T(RND*9)+1 

560 H2=INT(RND*4)+1 :: 12=IN 

T(RND*3)+1 

570 A2=A2+I2 :: IF A2>9 THEN 
A2=2 

580 B2=B2+H2 :: IF B2>8 THEN 
B2=2 

590 DISPLAY AT(7,8):A2;" 

";B2 


600 CALL WAIT(15) 

610 D2=A2-B2 

620 IF D2=0 THEN 640 :: CALL 
KEY(1,K,S>:: IF K=18 THEN 6 
30 :: GOTO 550 
630 E2=E2+10 :: GOTO 550 
640 F2=F2+1 :: A2=A2+I2 :: I 
F A2>8 THEN A2=l :: B2=B2+H2 
:: IF B2>9 THEN B2=l 
650 CALL WAIT(15):: DISPLAY 
AT (7,8) : A2; " *** " ; B2 :: CAL 
L KEY(1,K,S):: IF K=18 THEN 
660 :: GOTO 640 
660 DISPLAY AT(14,11):"STRAF 
E:";E2;" REAKTION:";F2;"GESA 
MT:";E2+F2 

670 CALL D(18,14,"'W' DRUECK 
EN"):: CALL KEY(1,K,S):: IF 
K=4 THEN 680 ELSE 670 

680 ! 

690 !-4. - 

700 ! 

710 CALL CLEAR 
720 B3=64 

730 CALL D(4,10,"UND NOCH MA 
L REAKTION") 

740 A3=INT(RND*90)+1 :: IF A 
3<65 THEN 740 

750 CALL D(6,10,"WENN...ERSC 

HE INT , DANN.FEUER DRUEC 

KEN"):: CALL HCHAR(7,8,A3,1) 
:: CALL WAIT(800) 

760 CALL CLEAR 

770 B3=B3+1 :: IF B3>=A3 THE 
N 820 

780 CALL WAIT(10) 

790 CALL HCHAR(12,12,B3,1):: 

CALL KEY(1,K,S):: IF K=18 T 
HEN 810 
800 GOTO 770 

810 C3=C3+10 :: GOTO 770 
820 D3=D3+1 :: CALL WAIT(10) 
:: CALL*KEY(1,K,S):: IF K=18 
THEN 850 :: B3=B3+1 :: IF B 
3=90 THEN 840 :: CALL HCHAR( 
12,12,B3,1) 

830 GOTO 820 

840 B3=65 :: GOTO 820 

850 CALL CLEAR :: DISPLAY AT 

(7,10) : "STRAFE:";C3;"DAUER:" 

;D3;" GESAMT:";C3+D3 

860 CALL D(10,12,"'W' DRUECK 

EN"):: CALL KEY(1,K,S>:: IF 

K=4 THEN 870 ELSE 860 

870 ! 

880 !-5. - 

890 ! 

900 CALL CLEAR 

910 CALL D(4,8,"WENN SIE EIN 
EN TON HOEREN,.- DANN DRUECKE 
N SIE FEUER!") 
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920 A4=INT(RND*150)+1 :: IF 
A4<80 THEN 920 

930 B4=B4+1 :: IF B4>A4 THEN 
960 

940 CALL KEY(1,K,S):: IF K=1 
8 THEN 950 ELSE 930 
950 C4=C4+10 :: GOTO 930 
960 CALL SOUND(20,340,0) 

970 D4=D4+1 :: CALL KEY <1,K, 
S):: IF K=18 THEN 980 ELSE 9 
70 

980 CALL CLEAR :: DISPLAY AT 
(8,4):"STRAFE:";C4; " DAUER:" 
;D4;.GESAMT:";C4+D4 :: PRI 
NT "'W' DRUECKEN" 

990 CALL KEY(1,K,S):: IF K=4 
THEN 1000 ELSE 990 
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1000 ! 

1010 !- 6 . 

1020 ! 


1030 CALL CLEAR 
1040 CALL D(2,2,"SIE SOLLEN 
MIT IHREM SUCHGE-RAET (MIT J 
OYST. STEUERN)...DEN SCHLUES 
SEL FINDEN! IN...DESSEN NAEH 
E PIEPST ES.") 

1050 CALL D(7,4,"'E' DRUECKE 
N"):: CALL KEY(1,K,S):: IF K 
=5 THEN 1060 ELSE 1050- 
1060 A5=INT(RND*190)+1 :: IF 
A5< 20 THEN 1060 
1070 B5=INT(RND*190) +1 :: IF 
B5C20 THEN 1070 
1080 CALL MAGNIFY(3) 

1090 CALL CLEAR 
1100 CALL SCREEN(16) 

1110 CALL CHAR(136,"70888870 
202020206020E000000000000000 
0000000000000000000000000000 
" ) 

1120 CALL CHAR(140,"38448282 
8244381010)01010383838000000 
0000000000000000000000000000 
") 

1130 CALL SPRITE(#1,136,16,A 
5,B5) 

1140 CALL SPRITE(#2,140,2,30 
,30) 

1150 CALL JOYST(1,X,Y):: CAL 
L MOTION(#2,—Y*7,X*7) 

1160 C5=C5+1 

1170 CALL COINC(#1,#2,30,Q): 
: IF Q THEN CALL SOUND(50,80 
0,0) 

1180 CALL COINC(# 1 ,#2,6,W):: 

- IF W THEN 1190 ELSE 1150 
1190 CALL DELSPRITE(#1):: CA 
LL MOTION(#2,0,0):: CALL MAG 
NIFY(4):: DISPLAY AT(9,6):"D 

AUER:";C5;".DRUECKEN SIE 

' W' " 


1200 CALL PATTERN(#2,136) 
1210 CALL KEY(1,K,S):: IF K= 
4 THEN 1220 ELSE 1210 
1220 CALL CLEAR 
1230 CALL D(7,3,"WIE HEISST 
DIE ZAHL?"):: INPUT GA zz IF 
GA=GE THEN 1240 ELSE 1250 
1240 CALL D(9,3,"SEHR GUT!! 
SIE HABEN EIN GU-TES GEDAECH 
NIS."):: C5=C5—10 :: GOTO 12 
60 

1250 CALL D(9,3,"IHR GEDAECH 

NIS IST NICHT_SEHR GUT!") 

:: PRINT "ZAHL HIESS:";GE 
1260 CALL D(20,3,"'W' DRUECK 
EN"):: CALL KEY(1,K,S):: IF 
K=4 THEN 1270 ELSE 1260 
1270 CALL CLEAR :: CALL DELS 
PRITE(ALL) 

1280 ! 

1290 !- auswert ung- 

1300 ! 

1310 A6=C+C1+E2+C3+C4 

1320 PRINT TAB(5):"STRAFEN G 

ESAMT:";A6 

1330 B6=D+D1+F2+D3+D4+C5 
1340 PRINT TAB(10):"REAKTION 
: " ; B6 

1350 C6=A6+B6 

1360 PRINT :: PRINT TAB(18): 
"GESAMT:" ; C6 

1370 PRINT :: PRINT "'W' DRU 
ECKEN" 

1380 CALL KEY <1,K,S): : IF K= 
4 THEN 1390 ELSE 1380 

1390 !- 

1400 CALL CLEAR 

1410 IF A6=0 THEN 1420 ELSE 

1430 

1420 C6=C6—5 

1430 IF C6<A7 THEN 1440 :: I 
F C6>A7 AND C6<B7 THEN 1470 
: : IF B7>90 AND C6CC70 THEN 
1500 :: IF C6>C7 THEN 1520 
1440 CALL SOUND(140,131,0)s: 

CALL SOUND(140,165,0):: CAL 
L SOUND(140,220,0) 

1450 FOR A=1 TO 33 :: CALL D 
(12,A,"S EHR G U T!"):: C 
ALL D(12,A—1,""):: NEXT A :: 

CALL D(20,14,"NOCHMAL J ?") 
1460 CALL KEY(2,K,S):: IF K= 
2 THEN RUN ELSE 1450 
1470 CALL SOUND(150,139,0):: 

CALL SOUND(150,196,0) 

1480 FOR A=2 TO 30 :: CALL D 
(17,A,"G U T!"):: CALL D(17, 
A—1,""):: NEXT A :: CALL D (2 
3,16,"NOCHMAL J ?"):: CALL K 
E Y (2 , K , S) 

1490 IF K=2 THEN RUN ELSE 14 
80 
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1500 CALL SOUND(200,130,0):: 

CALL SOUND(200,164,0):: CAL 
L SOUND(200,110,0) 

1510 CALL D(12,8,"AUSREICHEN 
D"):: CALL D(20,S,"NOCHMAL J 
?"):: CALL KEY(2,K,S):: IF 
K=2 THEN RUN ELSE 1510 
1520 CALL SOUND(200,164,0):: 

CALL SOUND(200,130,0):: CAL 
L SOUND(200,110,0) 

1530 CALL D(17,9,"MANGELHAFT 
UND ENDE"):: CALL WAIT(300 
):: END 
1540 ! 

1550 ! UNTERPROGRAMME 
1560 ! 

1570 SUB WAIT(A):: FOR 1=1 T 
0 A :: NEXT I :: SUBEND 
1580 SUB D(B,C,D$):: DISPLAY 
AT(B,C):D$ :: SUBEND 
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TRULL 

Dieses Spiel ist ein typisches Labyrinthspiel. 
Das Besondere daran ist ein eingebauter 
Editor, mit dem man sich seine eigenen 
Spielbilder (Labyrinthe) aufbauen, abspei¬ 
chern und laden kann. 

Das Menü des Spiels besteht aus sechs Punk¬ 
ten. Man wählt diese mit der vorangestell¬ 
ten Nummer an und beendet die jeweilige 
Eingabe mit ENTER. 

1. Schwierigkeitsgrad: Hier kann man den 
gewünschten Anfangsschwierigkeitsgrad 
eingeben (0 - 9). Bei erfolgreichem Spiel 
kann sich der Schwierigkeitsgrad allerdings 
bis 25 erhöhen. 

2. Steuerung: Es kann zwischen Joystick (J) 


S C DRE ü 



und Tastatur (K) gewählt werden. 

3. Neues Spielbild laden: Wenn man ein ei¬ 
genes Labyrinth auf Cassette gespeichert 
hat, kann man es hiermit einladen (J=ja, 
N=nein). Diskettenbesitzer müssen das Pro¬ 
gramm hier ändern! 

4. Neues Spielbild definieren: Dieser Punkt 
wird gewählt, wenn ein neues Labyrinth 

Bitte lesen Sie weiter auf Seite 28 


10 REM******************** 


11 REM* TRULL * 

12 REM* * 

13 REM* Copyright by * 

14 REM* * 

15 REM* Andreas Kaluza * 

16 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* Joystick (opt.) * 

20 REM* * 

23 REM* Speicherbelegung * 

24 REM* 9488 Bytes * 


25 REM******************** 

26 REM 

100 CALL CLEAR 
110 CALL SCREEN(2) 

120 DIM E(126> ,F(126) ,DFE(12 
6),C(25),D(25) 

130 RANDOMIZE 
140 FOR 1=1 TO 25 
150 READ Z,Z* 

160 CALL CHAR(Z,Z£) 

170 NEXT I 

180 DATA 91,2424242424242424 

,92,0000FF0000FF,93,0000030C 

10112224,94,0000C03008884424 

,95,2444880830C0 

190 DATA 96,242211100C03,97, 

2442810000FF,98,0000FF000081 

4224,99,2444840404844424,100 

,2422212020212224 

200 DATA 101,000018242424242 

4,102,0000F80404F8,103,24242 

4242418,104,00001F20201F,105 

210 DATA 106,3C4299A1Al99423 

C,111,8142240000244281 

220 DATA 40,3C7EDBFFFFS1423C 

,41,3C4281819189423C 

230 DATA 107,244281000081422 

4,108,FF818181818181FF,109,0 

07E7E7E7E7E7E 

240 DATA 121,000018242418,11 

9,3C76FBFFFF3C3C3C 

250 DATA 120,6037146AFFDF6E3 

C 

260 SD=7B 
270 SS=78 
280 SL=78 

290 AT(1)=". . JWWW".J\ 

WW^JWW'- . fy _ y' \\\\\_y 

..-y'ciiiiC.-C ]\\ A . 

h\f haWWc. . C ‘\\_ JX^yJV'. 

. yf..Cy_yCiC CiL" 

300 A* (1)=A*(1)&" e eyh\\\-f 


C . . d\\\\-f ' \_ Cif C C.y 

C" 

310 A* (2)=". . C.yCi C 


L C h\\\\\c.-C h\\\\\\\\a\ 
C C.yC. . C. 


Sfr 
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C d\\\\\ A C..d\\\\\\f 3' e h 
' \\\\\_ C. - Cy.CCyC " 

320 AT (2) =A£ (2) &c" . . y.y 

C..C 3 \b\\-f 1 d-f h\f h\\\b\ 


330 A*(3)=" . . C CiC.C. . 

..y-..C C..C CiC h\\\\\a-f 

e e C C..CyCiC..y. 

CCC C C g C..C ‘\a\W-f e h\\ 

_CC C C C. . C9.C ... 11 

340 A$(3)=A$(3)&" yCC '\a\^ 

C..C 3 \\\\\\\c UV' CC.C 

C" 

350 A$<4)="..C % \\\\\\\_ CiC 

' _ 3 \■' g C . . Cy.yCi C 

-CiCy..C.. '\\\\\\\\\\\a\a 

\\\\a\a\\\_" 

360 CALL COLOR(11,11,1) 

370 V=24 

380 L=1 

390 SCH=48 

400 HCS=0 

410 CALL CLEAR 

420 FÜR 1=2 TO 10 

430 CALL COLOR(1,2,1) 

440 NEXT I 

450 P$="j BY ANDREAS KALUZA 
1985" 

460 H*=P* 

470 U=24 
480 W=6 
490 JK=74 

500 PRINT ".3 \\\\\ 

^. CTRULL 

C " 

510 PRINT "3\\\\\\\\\\a\\\\\ 

aWWWWWC. DRUECKE T 

ASTE .dWWWWWWWW 

\\\\\\\\\\\C" 


520 PRINT " 1—SCHWIERIGKEITS 

GRAD._:";CHR*(SCH): :" 2-J 

OYSTICK ODER KEYS_:";CHR* 

(JK): :"■3—NEUES SPIELBILD L 

ADEN :";CHR$(SL): : 


530 PRINT " 4—NEUES SPIELBIL 
D DEF. .:";CHR*(SD): : " 5-SP 

IELBILD SAVEN.: " ; CHR$ ( 

SS): :" 6—SPIELEN": : : : 

540 CALL HCHAR(6,31,94) 

550 CALL VCHAR(7,31,91,14) 
560 CALL VCHAR(10,3,91,13) 
570 CALL HCHAR(8,31,99) 

580 CALL HCHAR(21,31,95) 

590 CALL HCHAR(21,4,92,27) 
600 CALL HCHAR(23,3,96) 

610 CALL HCHAR(23,4,92) 

620 CALL HCHAR(23,5,95) 

630 CALL HCHAR(22,5,91) 

640 CALL HCHAR(21,5,98) 

650 CALL HCHAR(21,3,100) 

660 SC=0 


L 

I 

S 

T 

I 

N 

G 

S 


670 

GOSUB 2890 


680 

FOR 

1=2 TO 10 


690 

CALL 

COLOR(1,6,1) 


700 

NEXT 

I 


710 

CALL 

KEY( 0 ,K,S) 


720 

IF S= 

=0 THEN 710 


730 

IF (K<49)+(K>54)THEN 

710 

740 

CALL 

HCHAR(22,4,K) 


750 

ON K 

-48 GOTO 760,830 

,900 


,1230,1080,2930 
760 CALL KEY(0,K,S) 

770 IF S=0 THEN 760 

780 IF K=13 THEN 710 

790 IF (K<48) + (K>57)THEN 760 

800 SCH=K . 

810 CALL HCHAR(10,29,K) 

820 GOTO 760 

830 CALL KEY(0,K,S) 

840 IF S=0 THEN 830 
850 IF K=13 THEN 710 
860 IF (K=74)+(K=75)THEN 870 
ELSE 830 
870 JK=K 

880 CALL HCHAR(12,29,K) 

890 GOTO 830 

900 CALL KEY(0,K,S) 

910 IF S=0 THEN 900 

920 IF (K=13)+(K=74)+(K=78)T 

HEN 930 ELSE 900 

930 IF K=13 THEN 970 

940 SL=K 

950 CALL HCHAR(14,29,K) 

960 GOTO 900 

970 IF SL=78 THEN 710 

980 CALL CLEAR 

990 OPEN #2:"CSl",INPUT ,INT 
ERNAL,FIXED 192 
1000 FOR 1=1 TO 4 
1010 A*(I)="" 

1020 INPUT #2:A*(I) 

1030 NEXT I 

1040 CLOSE #2 

1050 CALL CLEAR 

1060 SL=78 

1070 GOTO 410 

1080 CALL KEY(0,K,S) 

1090 IF S=0 THEN 1080 
1100 IF (K=13)+(K=74)+(K=78) 
THEN 1110 ELSE 1080 
1110 IF K=13 THEN 1150 
1120 SS=K 

1130 CALL HCHAR(18,29,K) 

1140 GOTO 1080 

1150 IF SS=78 THEN 710 

1160 CALL CLEAR 

1170 OPEN #2:"CSl",OUTPUT,IN 

TERNAL,FIXED 192 

1180 FOR 1=1 TO 4 

1190 PRINT #2:A*(I) 

1200 NEXT I 
1210 CLOSE #2 
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1220 GOTO 410 

1230 CALL KEY(0, K , S) 

1240 IF S=0 THEN 1230 
1250 IF (K=13)+(K=78)+(K=74) 
THEN 1260 ELSE 1230 
1260 IF K=13 THEN 1300 
1270 SD=K 

1280 CALL HCHAR(16,29,K) 

1290 GOTO 1230 

1300 IF SD=78 THEN 710 

1310 FOR 1=2 TO 10 

1320 CALL COLOR(1,2,1) 

1330 NEXT I 

1340 CALL CLEAR 

1350 CALL COLOR(12,2,1) 

1360 PRINT "..ALTES BILD VER 

BESSERN 

• • • 
m m m 

1370 FOR 1=2 TO 10 
1380 CALL COLOR(1,6,1) 

1390 NEXT I 

1400 CALL KEY(0,K,S) 

1410 IF S=0 THEN 1400 

1420 IF (K=74)+(K=78)THEN 14 

30 ELSE 1400 

1430 FOR 1=2 TO 10 

1440 CALL COLOR(1,2,1) 

1450 NEXT I 

1460 PRINT "..IG ^F _V 'B CH 

\R kS IQ dA.cD aX bW eY 

gN hE -fT yC": 

1470 IF K=78 THEN 1510 
1480 PRINT A*(1),AS(2),A*(3) 

,A$(4) 

1490 V=24 
1500 GOTO 1570 

1510 PRINT "..1\\\\\\\\\\\\\ 

WWV'DWW^. . C. 

.'ciiiiC" 

1520 V=0 

1530 PRINT "..C. 

...... \\\\c":::::::: 

\\\\ 

wwwwwwwwww." 

1540 CALL VCHAR(5,5,91,18) 
1550 V=0 

1560 CALL VCHAR(6,30,91,17) 

1570 REM 

1580 GOSUB 2890 

1590 CALL HCHARdl ,7,40) 

1600 CALL HCHARdl ,8,41,12) 
1610 CALL COLOR(12,7,1) 

1620 FOR 1=3 TO 10 
1630 CALL COLOR(1,6,1) 

1640 NEXT I 

1650 CALL COLOR(2,3,1) 

1660 M=4 
1670 N=6 

1680 CALL GCHAR(M,N,G) 

1690 GOTO 1710 

1700 CALL SOUND(300,300,0,-5 
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, 0 ) 

1710 REM 

1720 CALL HCHAR(M,N,G) 

1730 CALL KEY( 0 ,K,S) 

1740 CALL HCHAR(M,N,109) 

1750 IF S=0 THEN 1710 
1760 IF K=13 THEN 2570 
1770 IF (K<65)+(K>89) THEN 17 
00 

1780 K=K—64 

1790 IF K>13 THEN 1810 

1800 ON K GOTO 1820,1840,186 

0,1930,1950,1970,1990,2010,2 

030,2100,2170,1700,2240 

1810 ON K— 13 GOTO 2310,1700, 

1700,2330,2410,2430,2450,247 

0,2490,2510,2530,2550 

1820 G=100 

1830 GOTO 1710 

1840 G=96 

1850 GOTO 1710 

1860 V=V+1 

1870 IF V=25 THEN 1910 

1880 IF G=121 THEN 1910 

1890 G=121 

1900 GOTO 1710 

1910 V=V—1 

1920 GOTO 1700 

1930 G=99 

1940 GOTO 1710 

1950 G=104 

1960 GOTO 1710 

1970 G=94 

1980 GOTO 1710 

1990 G=93 

2000 GOTO 1710 

2010 G=91 

2020 GOTO 1710 

2030 CALL HCHAR(M,N,G) 

2040 M=M—1 

2050 IF M<3 THEN 2080 
2060 CALL GCHAR(M,N,G) 

2070 GOTO 1710 

2080 M=3 

2090 GOTO 2060 

2100 CALL HCHAR(M,N,G) 

2110 N=N—1 

2120 IF N<5 THEN 2150 
2130 CALL GCHAR(M,N,G) 

2140 GOTO 1710 

2150 N=5 

2160 GOTO 2130 

2170 CALL HCHAR(M,N,G) 

2180 N=N+1 

2190 IF N>30 THEN 2220 
2200 CALL GCHAR(M,N,G) 

2210 GOTO 1710 

2220 N=30 

2230 GOTO 2200 

2240 CALL HCHAR(M,N,G) 

2250 M=M+1 
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2260 IF M>23 THEN 2290 
2270 CALL GCHAR(M,N,G) 

2280 GOTO 1710 
2290 M=23 
2300 GOTO 2270 
2310 G=103 
2320 GOTO 1710 

2330 IF <N=5)+(M=23)+(N=30)+ 
(M—3)THEN 1700 

2340 IF (M<6)*(N>24)THEN 170 
0 

2350 IF G<>121 THEN 2390 
2360 V=V—1 

2370 IF G< >121 THEN 2390 

2380 V=V-1 

2390 G=32 

2400 GOTO 1710 

2410 G=92 

2420 GOTO 1710 

2430 G=107 

2440 GOTO 1710 

2450 G=102 

2460 GOTO 1710 

2470 G=95 

2480 GOTO 1710 

2490 G=95 

2500 GOTO 1710 

2510 G=98 

2520 GOTO 1710 

2530 G=97 

2540 GOTO 1710 

2550 G=101 

2560 GOTO 1710 

2570 IF V<>24 THEN 1700 

2580 CALL HCHARdl ,7,32, 13) 

2590 CALL HCHAR(4,26,105,4) 

2600 CALL HCHAR(M,N,G) 

2610 FOR 1=1 TO 4 
2620 A$<I)="" 

2630 NEXT I 
2640 FOR 1=3 TO 8 
2650 FOR 0=3 TO 30 
2660 CALL GCHAR(I,0,G) 

2670 A$(1)=A*(1)&CHR$(G) 

2680 NEXT O 
2690 NEXT I 
2700 FOR 1=9 TO.14 
2710 FOR 0=3 TO 30 
2720 CALL GCHAR(I,0,G) 

2730 A$<2)=A*(2)&CHR*(G) 

2740 NEXT O 

2750 NEXT I 

2760 FOR 1=15 TO 20 

2770 FOR 0=3 TO 30 

2780 CALL GCHAR(I,O,G) 

2790 A$(3)=A$(3)&CHR:S (G) 

2800 NEXT O 

2810 NEXT I 

2820 FOR 1=21 TO 23 

2830 FOR 0=3 TO 30 

2840 CALL GCHAR(I,O,G) 


2850 A* (4)=A$(4)£<CHR$(G) 

2860 NEXT O 

2870 NEXT I 

2880 GOTO 410 

2890 FOR 1=1 TO LEN(H$> V. 

2900 CALL HCHAR(U,(W+I)-l,AS 

C(SEG*(H$,1,1))) 

2910 NEXT I 
2920 RETURN 
2930 FOR 1=2 TO 12 
2940 CALL COLOR(1,2,1) 

2950 NEXT I 
2960 CALL CLEAR 

2970 PRINT "_SCORE”;SC:A$( 

1),A*<2>,A*(3),A*(4) 

2980 H*=P$ 

2990 U=24 
3000 W=6 
3010 GOSUB 2890 
3020 H*=STR£(CS) 

3030 U=4 
3040 W=26 
3050 GOSUB 2890 
3060 H$=P* 

3070 U=24 
3080 W=6 

3090 FOR 1=3 TO 10 
3100 CALL COLOR(1,6,1) 

3110 NEXT I 

3120 CALL COLOR(2,3,1) 

3130 CALL COLOR(11,12,1) 

3140 CALL COLOR(12,7,1) 

3150 FOR 1=2 TO 6 STEP 2 

3160 DFE(I)=32 

3170 F(I)=1 

3180 E(I)=1 

3190 NEXT I 

3200 FOR 1=1 TO 119 STEP 2 
3210 E(I)=INT(RND*19)+4 
3220 F(I)=INT(RND*24)+6 
3230 CALL GCHAR(E(I),F(I),G) 
3240 IF G< >32 THEN 3210 
3250 DFE(I)=INT(RND*2)+119 
3260 DFE(1+7)=32 
3270 F(I+7)=F(I) 

3280 E <1+7)=E(I) 

3290 NEXT I 

3300 FOR 1=121 TO 126 

3310 DFE(I)=32 

3320 NEXT I 

3330 FOR 1=121 TO 125 STEP 2 

3340 E(I)=1 

3350 F(I> =1 

3360 NEXT I 

3370 Y=11 

3380 X=7 

3390 CALL HCHAR(Y,X,40) 

3400 11=0 

3410 HCS=SCH 

3420 IF SCH<58 THEN 3460 

3430 SCH=57 
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3440 IF HCS<83 THEN 3460 
3450 HCS=82 

3460 FOR 1=8 TO SCH-38 
3470 11=11+1 
3480 C(I1)=11 
3490 D(I1)=1 

3500 CALL HCHAR(C(I1),D<I1), 
41) 

3510 FOR 0=1 TO 50 
3520 NEXT O 
3530 NEXT I 

3540 IF HCS>57 THEN 3570 

3550 HCS=SCH+12 

3560 GOTO 3630 

3570 FOR 1=1 TO HCS-57 

3580 11=11+1 

3590 C(I1)=11 

3600 D(I1)=19 

3610 NEXT I 

3620 HCS=HCS+12 

3630 QR=I1 

3640 U=2 

3650 W=12 

3660 Y1(1)=-l 

3670 XI(2)=1 

3680 Y1(3)=1 

3690 XI<4)=—1 

3700 Z=4 

3710 Z1=0 

3720 IF JK=74 THEN 3810 
3730 GOSUB 3750 
3740 GOTO 3730 
3750 CALL KEY< 0, K, S) 

3760 IF K=69 THEN 3890 
3770 IF K=68 THEN 3910 
3780 IF K=88 THEN 3930 
3790 IF K=83 THEN 3950 
3800 GOTO 3960 
3810 GOSUB 3830 
3820 GOTO 3810 
3830 CALL JOYSTd,X2,Y2> 

3840 IF Y2=4 THEN 3890 

3850 IF X2=4 THEN 3910 

3860 IF Y2=—4 THEN 3930 

3870 IF X2=—4 THEN 3950 

3880 GOTO 3960 

3890 Z=1 

3900 GOTO 3960 

3910 Z=2 

3920 GOTO 3960 

3930 Z=3 

3940 GOTO 3960 

3950 Z=4 

3960 CALL GCHAR(Y+Y1<Z), X + X 1 
(Z) , G) 

3970 CALL HCHAR(E < L),F(L),DF 
E (L) ) 

3980 L=L+1 

3990 IF L< >127 THEN 4030 

4000 L=1 
4010 R1=R1+1 
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4020 IF RI=4 THEN 4200 
4030 IF G=32 THEN 4050 
4040 GOTO 4160 
4050 CALL HCHAR(C(QR),D(QR), 

32) 

4060 C(QR)=Y 
4070 D(DR)=X 

4080 CALL HCHAR(C(QR),D(QR), 

41) 

4090 Y=Y+Y1(Z) 

4100 X=X+X1(Z) 

4110 CALL HCHAR(Y,X,40) 

4120 QR=QR—1 

4130 IF QR< >0 THEN 4190 

4140 QR=I1 

4150 RETURN 

4160 IF (G=41)+(G=l19)THEN 4 
200 

4170 IF G=120 THEN 4500 
4180 IF G=121 THEN 4520 
4190 RETURN 
4200 R1=0 

4210 FOR 1=1 TO HCS-57 
4220 CALL HCHAR(C(I),D(I),11 
1) 

4230 CALL SOUND(120,-5,0) 

4240 FOR 0=1 TO 30 
4250 NEXT O 

4260 CALL HCHAR(C(I),D(I),32 
) 

4270 NEXT I 

4280 CALL HCHAR < Y,X,1 1 1) 

4290 CALL SOUND(120,-5,0) 

4300 FOR 1=1 TO 20 
4310 NEXT I 

4320 CALL HCHAR(Y,X,32) 

4330 FOR 1=2 TO 10 
4340 CALL COLOR(I,2,2) 

4350 NEXT I 

4360 CALL CLEAR 

4370 PRINT . 3\\\\\\\\\W\\ 

\\\\\\\W'. . . . CNOCH EIN SPIE 

L ? (J/N) C. - . . ' \ \\\\\\\\\\W 

\\\\\\\\\_": 

• m m m 
m m • • 

4380 FOR 1=3 TO 10 
4390 CALL COLOR(1,6,1) 

4400 NEXT I 

4410 CALL COLOR(2,13,1) 

4420 CS=SC 

4430 CALL KEY(0,K,S > 

4440 IF S=0 THEN 4430 
4450 IF (K=74)+(K=106)THEN 3 
60 

4460 IF (K=78)+(K=l10)THEN 4 

470 ELSE 4490 

4470 CALL CLEAR 

4480 END 

4490 GOTO 4430 

4500 SC=SC+10 

4510 GOTO 4540 Sf 


27 




4520 V=V-1 
4530 SC=SC+5 
4540 H*=STR$(SC> 

4550 CALL SOUND(100,500,1) 

4560 GOSUB 2890 

4570 IF V=1 THEN 4590 

4580 GOTO 4050 

4590 SCH=HCS—11 

4600 R1=0 

4610 L=1 

4620 SC=SC+50 

4630 V=24 

4640 GOTO 2930 

Fortsetzung von Sette 23 

erstellt werden soll. Hat man T für ja ge¬ 
drückt, gefolgt von ENTER, so wird gefragt, 
ob das alte Bild verbessert (geändert) wer¬ 
den soll. Wird ‘N‘ für nein eingegeben, so 
kann ein ganz neues Labyrinth definiert 
werden. Das alte ist verloren, wenn es nicht 
zuvor abgespeichert wurde. Zu Beginn ste¬ 
hen nur die Umrandung des Spielfeldes 
und darüber die zur Verfügung stehenden 
Zeichen mit Tastaturbelegung auf dem 
Bildschirm. Mit den Tasten I, J, K und M 
wird der Cursor gesteuert. Soll ein Zei¬ 
chen gesetzt werden, wird diejenige Taste 
gedrückt, die dem gewünschten Zeichen 
entspricht. Auch der Rand kann geändert 
und somit ins Spiel eingebaut werden. Ein 
fälschlicherweise gesetztes Zeichen wird 
mit ‘Q‘ gelöscht. Zuletzt müssen noch 24 
rote Punkte (‘C‘-Taste) gesetzt werden, 
bevor dieser Modus mit ENTER verlassen 
werden kann. 

5. Spielbild saven: Mit dieser Option kön¬ 
nen selbstdefinierte Labyrinthe auf Casset- 
te abgespeichert werden. Diskettenbesitzer 
müssen das Programm abändern. 

6. Spielen: Nach Anwählen dieses Punktes, 
Eingabe von ‘J‘ für ja sowie ENTER, be¬ 
ginnt das eigentliche Spiel. Ihre Aufgabe 
ist es, einen Wurm, der mit steigendem 
Schwierigkeitsgrad immer länger wird (bis 
28 Glieder), mit dem Joystick oder den 
Pfeiltasten (E, S, D, X) durch das eigene 
oder vorprogrammierte Labyrinth zu steu¬ 
ern und die roten Punkte zu sammeln. 

Pilze dürfen nicht berührt werden. Äpfel 
ergeben Zusatzpunkte. Man darf nie rück¬ 
wärts gehen und der Wurm kann nicht an¬ 
gehalten werden, außer er läuft gegen eine 
Wand (ergibt keine Strafe!). Es ist ein Zeit¬ 
limit einzuhalten. Der Wurm darf sich nicht 
in den Schwanz beißen, was vor allem in 
späteren Spielstufen bei einer Länge bis zu 
28 Segmenten gar nicht leicht ist. Beach¬ 
ten Sie die Regeln genau, denn Sie haben 
nur einen Wurm. 

Achtung Peripheriebesitzer! Sollte dieses 
Spiel bei Ihnen in TI-Basic nicht laufen 
(Speicherplatz!) können Sie es auch in 
Extended Basic spielen. 

ASTROLAB 

Dieses Programm bietet nicht nur Freunden 
der Astronomie zahlreiche Berechnungsmög¬ 
lichkeiten, die häufig Sternzeit und juliani- 


10 REM******************** 

11 REM* ASTROLAB * 

12 REM* * 

13 REM* Copyright by * 

14 REM* ^ * 

15 REM*Meindert Lunenborg* 

16 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 10685 Bytes * 

25 REM******************** 

26 REM 

100 CALL CLEAR 
110 CALL SCREEN(5) 

120 PRINT TAB(6);"Ich lese d 
ata ein": ::::::::: 
130 DIM A$(6),G$(140>,PLA$(1 
0 ) 

140 FOR 1=0 TO 6 
150 READ A*(I> 

160 NEXT I 

170 FOR L=1 TO 140 

180 READ G$(L) 

190 NEXT L 

200 FOR AP=1 TO 10 

210 READ FLA*(AP) 

220 NEXT AP 

230 FOR 1=1 TO 14 

240 CALL COLOR(1,5,5) 

250 NEXT I 

260 CALL CHAR(129,"FFFFFFFFF 
FFFFFFF") 

270 CALL CLEAR 

280 REM in Zeilen 290—330 al 

le 'a' als 'CTRL A' eingeben 

i i i 

290 PRINT "...aaa..aaa..aaa. 

. aaa. . aaa.a a>>a.a>> 

.a a.-a a.aaa..-a..-.a.. 


.aa..- a. a 
300 PRINT ". 

. aa...a a. - - 


. a a..a a.....a a..aaa._.a.. 

.a a..aaa": : 

310 PRINT ".a_aaa. 


320 PRINT 


aaa..a a. 


.aaa : : 

330 PRINT " 




aaaaaaaaaaaaaaa 
:"..aaaaaaaaaaa 


aaaaaaaaaaaaaa 

340 FOR SET=1 TO 14 

350 CALL COLOR(SET,16,5) 

360 NEXT SET 

370 PRINT " . . . From Prismaso-f 
t (C) 1985": : 
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380 F=354 

390 FOR MAL=1 TO 3 
400 FOR V=0 TO 30 STEP 2 
410 CALL SOUND < — 100, F, V,—5,2 
9) 

420 NEXT V 
430 NEXT MAL 
440 CALL CLEAR 

450 PRINT TAB(10);"M E N U E 
TAB(10);"=========": : : : 

460 PRINT "<1) Sternzeit ber 
echnen": :"<2> Julianisches/ 
kal. Datum": :"<3> Berechne 
total Magnitude": : 

470 PRINT "<4> Berechne Magn 
./Distanz": :"<5> Berechne M 
ondphase": :"<6> Planet Date 
n": :"<7> Erklaerung Woerter 

": :"<8> Ende": : : 

480 INPUT "Waehle ein Zahl : 
":ZAHL 

490 IF (ZAHL<1) + <ZAHL>8)THEN 
500 ELSE 510 
500 GOTO 440;MENUE 
510 ON ZAHL GOTO 530,1090,19 
30,2210,2620,2860,3430,3610 
520 REM 

530 CALL CLEAR 

540 REM ** sternzeit ** 

550 PRINT "...S T E R N Z E 
IT": : : : : 

560 PRINT "Die verwendete oe 
stliche":"Laenge ist 5.133' 
o.L.":"<Utrecht>.": :"Wol1en 

Sie diese anpassen?" 

570 INPUT "Typ 'J' oder <ent 
er> : ":ANTW$ 

580 TL*=SEG*<ANTW$,1,1) 

590 IF <TL$="J">+<TL*="j">TH 
EN 600 ELSE 640 
600 PRINT : : : :"Was wird d 

er neue Wert?": : 

610 INPUT "." : L 

620 CALL CLEAR 
630 GOTO 660 
640 CALL CLEAR 
650 L=5.133 

660 INPUT "Julianisches Datu 
m?"sJD 
670 PRINT 

680 T=(<JD-2451545)/36525) 
690 GS=(24110.54841+8640184. 
813*T+.093104*T*t-.0000062*T 
*T*T)/86400 
700 GS=GS—INT(GS> 

710 GS=24*GS 
720 GOSUB 1030 
730 GOSUB 970 

740 PRINT "Standard Sternzei 
t=": :TAB(5) ; H; M; S: 

750 PRINT :"Gewuenschte Zeit 
Cin U.T. 1z ": : 
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760 INPUT "Uhr? :":H1 
770 INPUT "Min? :":M1 
780 INPUT "Sec? :":S1 
790 PRINT 

800 D=Hl+Ml/60+S1/3600 
810 GS=GS+D*1.002737909 
820 GOSUB 1030 
830 GOSUB 970 

840 PRINT "Sternzeit Greenwi 
ch=": :TAB(5);H;M;S: 

850 PRINT 
860 GS—GS+L/15 
870 GOSUB 1030 
880 GOSUB 970 

890 PRINT "Lokale Sternzeit. 
..=”: :TAB(5);H;M;S: 

900 PRINT : : :"Noch einMal? 
J/N" 

910 CALL KEY(0,K,S) 

920 IF S=0 THEN 910 

930 IF (K=74)+(K=106)THEN 94 

0 ELSE 960 

940 CALL CLEAR 

950 GOTO 550 

960 GOTO 440;MENUE 

970 H=INT <GS) 

980 X=60*(GS—H) 

990 M=INT(X) 

1000 S=60*(X—M) 

1010 S=INT(S+.5) 

1020 RETURN 

1030 IF GS<0 THEN 1040 ELSE 
1050 

1040 GS=GS+24 

1050 IF GS>24 THEN 1060 ELSE 
1070 

1060 GS=GS—24 
1070 RETURN 

1080 REM ** subr.2 ** 

julianischeS Datum 
1090 RESTORE 1100 
1100 DATA SONNTAG,MONTAG,DIE 
NSTAG,MITTWOCH,DONNERSTAG,FR 
EITAG,SAMSTAG 
1110 CALL CLEAR 
1120 PRINT : : 

1130 PRINT "1. Zum julianisc 
hen Datum": : 

1140 PRINT "2. Zum Kalender 
Datum": : 

1150 PRINT "3. Tag der Woche 


1160 PRINT "4. Zeitintervall 
in Tagen": : 

1170 PRINT "5. Menne": : : 

1180 INPUT "Waehle eine Zahl 
:":ZAHL 

1190 PRINT : : : 

1200 IF (ZAHLC1) + < ZAHL>5)THE 
N 1180 

1210 ON ZAHL GOTO 1220,1260, 
1300,1370,440 H 
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1220 GOSÜB 1470;JUL 

1230 GOSUB 1520;JUL 

1240 PRINT : :"Julianisches 

Datum :";JD 

1250 GOTO 1120;BEGIN 

1260 INPUT "Julianisches Dat 

um:JD 

1270 GOSUB 1660;KAL 
1280 GOSUB 1880;KAL 
1290 GOTO 1120;BEGIN 
1300 GOSUB 1470;TAG 
1310 GOSUB 1520;TAG 
1320 JD=JD+1- 5 
1330 A4=INT(JD/7) 

1340 B4=JD—7*A4 

1350 PRINT : :"Der Tag ist : 

";A*(B4) 

1360 GOTO 1120;BEGIN 

1370 PRINT : :"Datum 1.:": : 

1380 GOSUB 1470;INTER 

1390 GOSUB 1520;INTER 

1400 J3=JD 

1410 PRINT : :"Datum 2.:": : 

1420 GOSUB 1470;INTER 
1430 GOSUB 1520;INTER 
1440 J4=JD 

1450 PRINT : :"Intervall in 

Tagen :";ABS(J3-J4): : 

1460 GOTO 1120;BEGIN 
1470 INPUT "Jahr? :":JR 
1480 INPUT "Monat?: ":MA 

1490 INPUT "Tag ? : ":DG 

1500 DA=JR+MA/100+DG/10000 
1510 RETURN 

1520 IF MA >2 THEN 1550 
1530 JR=JR—1 
1540 MA=MA+12 
1550 A1=INT(JR/100) 

1560 Bl=2—Al+INT(Al/4) 

1570 C1=0 
1580 D1=0 

1590 IF JR<0 THEN 1600 ELSE 
1620 

1600 Cl=—.75 
1610 Dl=l 

1620 JD=INT(365.25*JR+C1)+IN 
T(30.6001*(MA+1))+DG+1720994 
. 5+D1 

1630 IF DA>1582.1015 THEN 16 

40 ELSE 1650 

1640 JD=JD+B1 

1650 RETURN 

1660 JD=JD+.5 

1670 Z2=INT <JD) 

1680 F2=JD—Z2 

1690 IF Z2<2299161 THEN 1700 
ELSE 1720 
1700 A2=Z2 
1710 GOTO 1740 

1720 G2=INT((Z2—1867216.25)/ 
36524.25) 


1730 A2=Z2+1+G2—INT(G2/4) 

1740 B2=A2+1524 

1750 C2=INT((B2-122.1)/365.2 

5) 

1760 D2=INT(365.25*C2) 

1770 E2=INT<(B2-D2)/30.6001) 

1780 DG=B2-D2-INT(30.6001*E2 
)+F2 

1790 IF E2<13.5 THEN 1800 EL 

SE 1820 

1800 MA=E2—f 

1810 GOTO 1830 

1820 MA=E2—13 

1830 IF MA>2.5 THEN 1840 ELS 
E 1860 

1840 JR=C2—4716 
1850 GOTO 1870 
1860 JR=C2—4715 
1870 RETURN 

1880 PRINT : :"Jahr :";JR 

1890 PRINT "Monat:MA 
1900 PRINT "Tag.DG 
1910 RETURN 

1920 REM ** subr.3 ** 

hei l.igkei t ber. 

1930 CALL CLEAR 

1940 PRINT "Dieses Programm 

ermoeglicht":"Ihnen die tota 

le Heilig-":"keit 2 oder meh 

rerer Sterne":"zu berechnen. 

» ■ 

■ m 

1950 PRINT "Sie koennen dies 
es Programm":"z.B. verwenden 
beim Ausrechn-en der Heilig 
keit":"Doppelsterne- : 

1960 PRINT : :"Typ '*' wenn 

Sie -fertig sind": : 

1970 PRINT : : 

1980 F=100^.2 
1990 N=0 
2000 N=N+1 

2010 PRINT " CH.k.=Hel1igkei 

t> ": : 

2020 PRINT "H.k. von Stern"; 
N;"? :"; 

2030 INPUT m 
2040 IF M$="*" THEN 2130 
2050 IF ASC(SEG$(M$,1,1))>57 
THEN 2030 
2060 M=VAL(M*> 

2070 IF N=1 THEN 2080 ELSE 2 
100 

2080 MT=M 
2090 GOTO 2110 
2100 MT=-2.5*L0G<F^—MT+F"-— M) 
/LOG(10) 

2110 N=N+1 

2120 GOTO 2020 

2130 PRINT : :"Die totale H. 

k. ist": :MT;"m." 

2140 N=0 
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KOMMT REGELMÄSSIG 


■ DAS 
MAGAZIN 

FÜR 

TI 99/4A 
&TI PC 

REVUE 


ZU IHNEN 
INS HAUS 


Finden Sie Ihre TI REVUE nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder „Euer” 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 60 DM liefern wir Euch per Post zwölf 
Hefte ins Haus (Ausland 80 DM). Einfach den 
Bestellschein auf der nächsten Seite ausschneiden 
- fotokopieren oder abschreiben, in einen Brief¬ 
umschlag und ab per Post (Achtung: Porto nicht 
vergessen). TI REVUE kommt dann pünktlich 
ins Haus. 


WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 


Verlag widerrufen— Postkarte ge¬ 
nügt. Ansonsten läuft dieser Auf¬ 
trag jeweils für zwölf Ausgaben, 
wenn ihm nicht vier Wochen 
vor Ablauf widersprochen wird, 
weiter. 


Subskriptionsangebot für 
Schnellentschlossene! 


Wieder rund 


SERVICE 

LISTINGS 
TIPS 
& TRICKS 



150 Seiten 


I r-i" v/y V*< 

I : ' ' V- 

TI99/4A 

SPECIAL 


Ab 26. März 
an Ihrem 
Kiosk oder 
beim Verlag 


Es ist in Arbeit! Das neue, große Tl-Special mit rund 150 Seiten. Listings, Tips und Tricks. Für jeden Tl-User 
ein unbedingtes Muß. Nutzen Sie unser Subskriptionsangebot. Mit dem Reservierungsschein auf der nächsten 
Seite sparen Sie 2 Mark und erhalten das Heft, bevor es an den Kiosk kommt! Aber Achtung: Dieses Angebot 
ist befristet! Letzter Absende-Tag Ihrer Reservierungskarte ist der 20. März! Danach dürfen wir nur noch zum 

vollen Preis verkaufen! 


Subskriptionsangebot für 





KASSETTEN¬ 


SERVICE 


*' Wollt Ihr nicht mehr seitenlange Listings eintip¬ 
pen? Dann benutzt unseren Kassetten-Service: Für 
ganze zehn DM - nur Vorkasse, keine Rechnung - 
keine Nachnahme - erhalten Sie alle angebotenen 
Listings des jeweiligen Heftes auf Kassette per Post 
ins Haus. Achtung: Bestellungen ohne Geld werden 
nicht bearbeitetl Lieferzeit: In der Regel zwei bis drei 
Wochen! Wichtig: Unsere Kassetten werden digital in 
einem Profistudio von einem Masterband gezogen, 
nicht irgendwie per Recorder runtergenudelt. Selbst¬ 
verständlich volles Umtauschrecht bei Nichtfunktio- 
nieren. 





Coupon 

Ja, ich möchte von Ihrem Angebot 
Gebrauch machen. 


Tis 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist 


TI REVUE 

Abo-Service 3/86 

Postfach 1107 

8044 UNTERSCHLEISSHEIM 


Bitte senden Sie mir bis auf Wider¬ 
ruf ab sofort jeweils die nächsten 


zwölf Ausgaben an untenstehende 
Anschrift. Sollte ich nicht vier 
Wochen vor Ablauf schriftlich 
kündigen, läuft diese Abmachung 
automatisch weiter. 


Name __ 

Vorname___ 

Strsße/Hausnr____ 

Plz/Ort_._ 

Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort_ 

Kontonummer___ 

Bankleitzahl___ 

(steht auf jedem Kontoauszug) . 

Unterschrift_1_:_ 

Vor» meinem Widerspruchsrecht habe ich Kenntnis genommen. 
Unterschrift_____ 
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RESERVIERUNGS¬ 

SERVICE 


Es ist in Arbeit! Das neue, große Tl-Special mit 
rund 150 Seiten. Listings, Tips und Tricks. Für 
jeden Tl-User ein unbedingtes Muß. Nutzen Sie 
unser Subskriptionsangebot. Mit dem Reservierungs¬ 
schein auf der nächsten Seite sparen Sie 2 Mark 
und erhalten das Heft, bevor es an den Kiosk 
kommt! Aber Achtung: Dieses Angebot ist be¬ 
fristet! Letzter Absende-Tag Ihrer Reservierungs¬ 
karte ist der 20. März! Danach dürfen wir nur noch 
zum vollen Preis verkaufen! 

LISTINGS 
TIPS & TRICKS 
SERVICE 
Ab 26. März 
an Ihrem Kiosk 
oder beim Verlag 
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PROQ RAMMSERVICE 

I ”7 

Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen 
die Listings dieses Heftes auf 

□ Kassette (10DM) 3 , 0 g 

□ Diskette - (25 DM) 

Zutreffendes bitte ankreuzen! 

Ich zahle: 

per beigefügtem Scheck / Schein ( ) 

Gegen Bankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname) ... 

Meine Kontonummer.....;. 


Meine Bankleitzahl.(steht auf jedem Bankauszug) 

Vorname.;...Nachname. 

Str./Nr.PLZ/Ort . 


Hiermit bestätige ich mit meiner Unterschrift, Ihre Verkaufsbedingungen 
gelesen zu haben und zu akzeptieren. 

Unterschrift.. 

Bitte ausschneiden und einsenden an 
TI-REVUE 

KASSETTENSERVICE 3/86 
Postfach 1107 
8044 Unterschleißheim 
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Unterschrift___— ~ 

* = Abbuchung und Einreichung am Versandtag! 

















Über SO Seiten 

Alles über „ 
Assembler für 
den TI 99/4A 


MACHEN SIE MEHR AUS 
IHREM TI MIT ASSEMBLER 


IM 

BAHNHOFSBUCHHANDEL 
ODER BEIM VERLAG! 


Ein Muß für Jeden 

Assembler-Anwender! 
KLEINANZEIGEN KOSTENLOS! 

Das bietet Ihnen ab sofort die TI-REVUE: KLEIN¬ 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN¬ 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver¬ 
kaufen, zu tauschen, wollen Sie einen Club gründen? 

Coupon ausfüllen, auf Postkarte kleben oder in Brief¬ 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele¬ 
fonnummer sollten acht Zeilen d 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In¬ 


serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 3,50 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
11 ns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab¬ 
hängig! 

Wir behalten uns vor, Anzeigen, die nicht zum The¬ 
menkreis des Heftes - Computer - gehören, nicht ab¬ 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu¬ 
läßt. 
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2150 MT=M=0 

2160 PRINT : :"Noch einmal? 

J/N " 

2170 CALL KEY(0, K, S) 

2180 IF S=0 THEN 2170 

2190 IF (K=74)+(K=106)THEN 1 

930 ELSE 440 

2200 REM -** subr.4 ** 
abs.H.k./scheinb.H.k./Dist. 
2210 CALL CLEAR 
2220 PRINT "..CH.k.=Hel1igke 
i t > " : : : 

2230 PRINT "Nacheinander wer 
den":"scheinbare H.k., abs. 
H.k.":"und Distanz gefragt." 

■ ■ 

2240 PRINT "Ergaenze fuer de 
n Wert, den":"Sie wissen wol 
1en ein : : 

2250 PRINT : : 

2260 A=0 

2270 INPUT "Scheinbare H.k. 
ist:":SM* 

2280 IF SM$="*" THEN 2290 EL 

SE 2310 

2290 A=1 

2300 GOTO 2320 

2310 SM=VAL(SM*) 

2320 PRINT : : 

2330 INPUT "Abs. H.k. ist_ 

_:":AM$ 

2340 IF (AM$="*")*(A=1)THEN 

2320 

2350 IF AM$="*" THEN 2360 EL 
SE 2380 

2360 A=1 

2370 GOTO 2390 

2380 AM=VAL(AM$) 

2390 PRINT : : 

2400 INPUT "Distanz ist Hin 
parsec]:":DZ$ 

2410 IF (DZ£="*")*(A=l)THEN 
2390 

2420 IF DZ*="*" THEN 2450 
2430 DZ=VAL(DZ$) 

2440 IF DZ=0 THEN 2390 
2450 PRINT : : 

2460 IF SM$="*" THEN 2490 
2470 IF AM$="*" THEN 2520 
2480 GOTO 2550 

2490 SM=AM-5+5*L0G<DZ)/LOG(1 
0) 

2500 PRINT :"Scheinbare H.k. 

ist ": :SM;"m." 

2510 GOTO 2570 

2520 AM=SM+5—5*L0G(DZ >/LOG(1 
0 ) 

2530 PRINT :"Abs. H.k. ist": 

:AM;"m." 

2540 GOTO 2570 

2550 DZ=10^<(SM-AM+5)/5) 


2560 PRINT :"Di stanz ist": : 
DZ;"pc." 

2570 PRINT : : :"Noch einmal 

? J/N " 

2580 CALL KEY(0,K,S) 

2590 IF S=0 THEN 2580 
2600 IF (K=74)+(K=106)THEN 2 
210 ELSE 440 
2610 REM ** subr.5 ** 
mondphasen 
2620 CALL CLEAR 
2630 PRINT TAB(6);"-= MONDPH 
ÄSEN =-": : : 

2640 PRINT "Von welchem Tag 
wollen Sie":"die Mondphase b 
erechnet":"haben?" : : 

2650 INPUT "Jahr?..:":JR 
2660 INPUT "Monat? :..":MO 
2670 INPUT "Tag?.TG 
2680 Y=INT(JR/19) 

2690 Z=JR—19*Y 
2700 Y=Z*11 
2710 Z=Y+TG 
2720 B=MO—3 

2730 IF B<=0 THEN 2740 ELSE 
2750 

2740 B=0 

2750 Y=Z+B 

2760 Z=INT(Y/30) 

2770 N=Y—30*Z 

2780 PRINT : : "Au-f diesem Ta 

g ist der Mond":" ";N;"Tage 
alt": : : 

2790 PRINT "-0 Tage. 

... Neumond7&8 Tage, .ers 
tes Viertel":"...15 Tage.... 
....Vol1mond" 

2800 PRINT "22Sc23 Tage letzt 
es Viertel" 

2810 PRINT : : :"Noch einmal 

? J/N" 

2820 CALL KEY(0,K,S > 

2830 IF S=0 THEN 2820 

2840 IF <K=74>+(K=106)THEN 2 

620 ELSE 440. 

2850 REM ** subr.6 ** 

Planet Daten 
2860 CALL CLEAR 
2870 PRINT TAB(6);"Planet in 
fo": : : 

2880 PRINT "Sie koennen Info 
rmation von":"folgenden Plan 
eten":"erhalten:": : : 

2890 PRINT " 0. Merkur":" 1. 

Venus":" 2. Erde":" 3. Mars 
":" 4. Jupiter":" 5. Saturn" 
:" 6. Uranus": 

2900 PRINT " 7. Neptun":" 8. 

Pluto":" 9. Sonne":"10. Men 
ue": : 

2910 INPUT "Waehle eine Zahl 
(0-10):":ZAHL 
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2920 IF (ZAHL<0)+(ZAHL>10)TH 
EN 2860 

2930 IF ZAHL=10 THEN 440 

2940 1=(ZAHL)*14+1 

2950 CALL CLEAR 

2960 PRINT " ** i n f o ";P 

LA*(ZAHL+1);" **": : : 

2970 PRINT "Perihel.= 

..";G*(I);" ae": : 

2980 PRINT "mittl. Distanz = 
";G*(I+1>;" ae": : 

2990 PRINT "Aphel..= 

..";G*(1+2);" ae": : 

3000 PRINT "Umlaufzeit.= 

";G*(I+3>;" jr": : 

3010 PRINT "mittl. Bahnges.= 
";G*(I+4>;" km/s": : 

3020 PRINT "Taeg. Bewegung = 

. . " ;G*(1+5): : ' 

3030 PRINT "Neigung Eclipt.= 

.";G*(I+6): : : 

3040 PRINT "druecke eine tas 
te" 

3050 CALL KEY(0,K,S > 

3060 IF S=0 THEN 3050 

3070 CALL CLEAR 

3080 PRINT " ** i n -f o..";P 

LA*(ZAHL+1);" **": : : 

3090 PRINT "Exzentrizitaet = 

.";G*(1+7): : 

3100 PRINT "Durchmesser....= 
";G*(1+8);" km": : 

3110 PRINT "Abplattung.= 

.";G*(I+9): : 

3120 PRINT "Rotationsdauer = 
";G*(1+10): : 

3130 PRINT "Masse..CErde=l1= 

_";G*(I+11): : 

3140 PRINT "Gravitation-= 

_";G*(1+12);" g": : 

3150 PRINT "grossste H.k. .= 
..";G*( 1+13);" mag": : 

3160 PRINT : :"Noch einmal? 

J/N": : : 

3170 CALL KEY(0,K,S) 

3180 IF S=0 THEN 3170 

3190 IF (K=74)+(K=106)THEN 2 

860 ELSE 440 

3200 REM mercur 

3210 DATA .307,.38711,.467,. 

24085,47.9,4'.09234,7'00', . 2 

056,4878,0,58d15h30m,.0553, . 

77,-1.9 

3220 REM venus 

3230 DATA .718,.72333,.728,. 

61521,35.0,1'.60207,3'24', . 0 

068,12104,0,243d00h14m,.815, 

.904,-4.4 

3240 REM Erde 

3250 DATA .983,1.00000,1.017 

,1.0004,29.8,0'.98561,-,.01 

67,12756,1/298,23h56m04s,1,1 
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3260 REM mars 

3270 DATA 1.381,1.52369,1.66 

6,1.88089,24.1,0'.52403,1'51 

',.0934,6788,1/193,24h37m23s 

,.1074,-378,-2.7 

3280 REM jupiter 

3290 DATA 4.951,5.20283,5.45 

5,11.8622,13.1,0'.08309,1'18 

',.0483,142800,1/15.4,9h55m3 

05,317.83,2.69,-2.5 

3300 REM saturn 

3310 DATA 9.02,9.5539,10.06, 

29.4577,9.7,0'-03346,2'29',- 

0560,120660,1/9.3,10h39m,95. 

159,.95,-.3 

3320 REM uranus 

3330 DATA 18.28,19.1914,20.1 

0,84.0122,6.8,0'.01173,0 '46 

',.0461,52200,1/33,~16h,14.5 

0,.80,5.7 

3340 REM neptun 

3350 DATA 29.81,30.061,30.33 

,164.7964,5.4,0'.00598,1'46' 

, .0097,48400,1/38,'''18h ,17.2, 

1.10,7.6 

3360 REM pluto 

3370 DATA 29.65,39.53,49.28, 

247.2,4.7,0'.00399,17'09', . 2 

49,4000?,?,6d09h17m,.003,.03 

,13 

3380 REM sonne 

3390 DATA 0,0,0,2.2* 10'"8,20 , 

9*10-''—8' ,7'15' ,?, 1.4*10-'6,?, 

25d08h,332946,28,-26.7 

3400 REM Planete 

3410 DATA Merkur,Venus,Erde, 

Mars,Jupiter,Saturn,Uranus,N 

eptun,pluto,Sonne 

3420 REM 

** subr.7 ** 

Erklaerung 
3430 CALL CLEAR 
3440 PRINT : :"Erklaerung sc 

hwerer Woerter":"*********** 
****************": : 

3450 PRINT "ae Astronomisch 
e Einheit":"pc :Parsec":"1j 
:Lichtjahr": :"1 ae = 149 59 
7 870 km":" 1 lj = 9.4607*10'' 
12km” 

3460 PRINT "1 pc =. 3.086*10 

''13km" : ".=.206265 a 

e" : 11 .=. 3.2616 lj": 

:"Masse Erde= 5.9742*10 '24kg 


3470 FRINT :"Perihei:":" Kue 
rzeste Distanz zur":" Sonne. 
":"Aphel” Laengste Distan 
z zur”:" Sonne." 

3480 PRINT :"druecke eine Ta 
ste" 
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3490 CALL KEY(0,K,S) 

3500 IF S=0 THEN 3490 

3510 CALL CLEAR 

3520 PRINT : :"Ecliptica:":" 

Kreis am Himmel an dem die" 
:" Sonne scheinbar bewegt.": 

:"Neigung Ecliptica:" 

3530 PRINT " Winkel den die 
Bahn-f 1 aeche" : " macht mit der 
Bahnt 1aeche":" der Erde.": 

3540 PRINT "Taegliche Bewegu 
ng:" Teil der Bahn, welche 
taeg-":" lieh zurueckgelegt 
wird":"Hin Gradl .": : 

3550 PRINT "U.T.:":" Weltzei 
t :":" U.T.=Sommerzeit—2 Std 
n.":" U.T.=Winterzeit—1 Std. 


L 
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3560 PRINT "Noch einmal? J/N 


3570 CALL KEY(0,K,S) 

3580 IF S=0 THEN 3570 

3590 IF (K=74)+(K=106)THEN 3 

430 ELSE 440 

3600 REM Ende 

3610 PRINT : :TAB(4);"—AUF 

WIEDERSEHEN!—" 


Fortsetzung von Seite 28 

sches Datum kennen müssen, um die Posi¬ 
tion von Himmelskörpern berechnen zu 
können, sondern auch dem astronomi¬ 
schen Laien viele Informationen über 
Planeten und diverse Rechenroutinen. So 
können Tagesdifferenzen berechnet wer¬ 
den (wegen der Schaltjahre gar nicht ein¬ 
fach), oder welcher Wochentag ein be¬ 
stimmtes Datum war. Astronomen wer- • 
den die Möglichkeit, Helligkeit, Distanz 
und Mondphasen zu berechnen, schät¬ 
zen (Vergleich der Lichtkraft der Sterne), 
ebenso die Mondphasen. 

Das Programm ist über ein Haupt- und meh¬ 
rere Untermenüs gesteuert. Abkürzungen 
und Fremdwörter werden im Programm¬ 
punkt “Erklärungen“ dem Interessierten 
kurz erläutert. 

Bei der Eingabe des Programms die An¬ 
weisung in Zeile 260 beachten! Das Pro¬ 
gramm läuft auch mit dem Extended Basic 
Modul. Sollte das Programm mit “Memory 
full“ abbrechen, so muß mit CALL 
FILES(l) und NEW, sowie Weglassen des 
Listingskopfes (REM-Zeilen) Platz freige¬ 
macht werden. 


MASTERPLAN 

Nach dem Starten des Programms erscheint 
zuerst das Titelbild von Masterplan, welches : 
Sie durch Drücken einer beliebigen Taste 
verlassen können. Danach erscheint eine 
kurze Übersicht der Tastenbelegung, welche 

Bitte lesen Sie weiter auf Seite 41 


10 ! 

********************** 

11 ! 

* 


* 

12 ! 

* 

MASTERPLAN 

* 

13 ! 

* 


* 

14 ! 

* 

Copyright by 

* 

15 ! 

* 


* 

16 ! 

* 

Dirk Junghans 

* 

17 ! 

* 


* 

19 ! 

* 

Benoetigte Geraete 

* 

20 ! 

* 

TI99/4A Konsole 

* 

21 ! 

* 

Ext. Basic 

* 

22 ! 

* 

Cassettenrec. 

* 

23 • 

* 


* 

26 ! 

* 

Spei eherbeiegung 

* 

27 ! 

* 

8418 Bytes 

* 

28 ! 

* 


* 

29 ! 

********************** 

100 

ON 

ERROR 830 


110 

FOR 

1=0 TO 8 :: CALL 

COL 


ÜR(1,2,13):: NEXT I :: CALL 
SCREEN(13):: CALL CÜL0R(9,16 
, 13) 

120 CALL CHAR(97,"7926242424 
242424",98,"2424242424242578 
",99,"F0E8484848E80848",100, 
"AS884828A84810E0") 

130 CALL MAGNIFY(2) 

140 CALL CLEAR :: FÜR 1=1 Tü 
10 :: CALL SPRITE(#1,ASC(SE 
G$("MASTERPLAN",I,1)),2,1*7+ 
16,1*9+81):: NEXT I 
150 DISPLAY AT(13,14):"ac" : 
: DISPLAY AT<14,14):"bd " :: 
DISPLAY AT(24,4):"PRESS ANY 
KEY TO BEGIN" 

160 DISPLAY AT(1,8):"DJIS PR 
ESENTS" :: DISPLAY AT<22,3): 
"(C) 1985 BY DIRK JUNGHANS" 

170 FÜR 1=1 TO 250 :: NEXT I 
:: FOR 1=1 TO 10 :: CALL MO 
TION(#I,0,-10):: NEXT I 
180 DISPLAY AT(17,3):"DIESES 
PROGRAMM IST":"..JAMES JOYC 
E GEWIDMET." 

190 CALL KEY <0,K,3):: IF S=0 
THEN 190 :: CALL CHARSET :: 
CALL DELSPRITF(ALL):: CALL 
CLEAR 

200 CALL CHAR < 97,"7E427E427E 
427E42",98,"7E42427E42427E42 
"> 

210 CALL C0L0R(9,16,13) 

220 OPTION BASE 1 :: DIM T*( 
3,18) ,Z (3, 18) ,P (18). 

230 CALL CLEAR :: BLATT=1 :: 

DISPLAY AT(1,9):"UEBERSICHT 
" :: DISPLAY AT(3,1):"1,2,3 
= >ARBEITSBLAETTER” 

240 DISPLAY AT(3,1):"1,2,3 = 


> ARBEI TSBLAETTER.Q = MJMS 

CHALTEN ZUR WAHL DER.ARB 

EITSBLAETTER" 






250 DISPLAY AT(6,1):"S =>DAT 

EN ABSPEICHERN.R =>DAT 

EN EINLESEN___L =>DAT 

EN SORTIEREN" 

260 DISPLAY AT (9,1) : "7. =>PRO 

ZENTE AUSGEBEN. G =>GRA 

FH IK AUSGEBEN.O =>REC 

HENOPERAT IONEN.DER 

DATEN" 


270 DISPLAY AT(13,1):"A =>DA 
TEN AUSTAUSCHEN" 

280 DISPLAY AT(13,1):"A =>DA 


TEN AUSTAUSCHEN.T =>TE 

XT EINGEBEN.Z =>ZA 

HLEN EINGEBEN.N =>DA 

TEN NEU AUSGEBEN" 

290 DISPLAY AT(17,1):"C =>DA 

TEN LOESCHEN.D =>DU 

RCHSCHNITT.FCTN 7 

= >UEBERSICHT" 

300 DISPLAY AT(21,1):"© =>EN 


DE" :: DISPLAY AT(24,2):"PRE 
SS ANY KEY TO CONTINUE" 

310 CALL KEY <0,K,S):: IF S=0 
THEN 310 :: CALL CLEAR 
320 BLATT=1 
330 CALL CLEAR 
340 R=1 :: CALL ANZ(T*(,),Z( 
,),BLATT):: CALL ADD(Z(,),BL 
ATT,SU) 

350 DISPLAY AT(24,1):"Q,S,R, 
L,7,G,0,A,T,Z,N,C,D,@" :: CA 
LL KEY <0,K,S):: IF S=0 THEN 
350 :: IF K=64 THEN STOP 
360 IF K< >81 THEN 410 
370 DISPLAY AT(24,1):"BITTE 
ARBEITSBLATT WAEHLEN !" 

380 CALL KEY(0,K1,S1):: IF S 
1=0 THEN 380 

390 IF Kl<49 OR Kl>51 THEN 3 
80 :: BLATT=K1—48 
400 CALL ANZ(T*(,),Z(,>,BLAT 
T):: GOSUB 900 :: DISPLAY AT 
(24,1):"" :: GOTO 350 
410 IF K< >84 THEN 460 
420 DISPLAY AT(24,1):"WELCHE 
ZEILE ?" :: ACCEPT AT(24,16 
)SIZE(2)VALIDATE(DIGIT):WT : 

: IF WT<1 OR WT>18 THEN 420 
430 CALL TEIN(T*(,),BLATT,WT 
):: DISPLAY AT(24,1):"" :: D 
ISPLAY AT(24,1):"NOCH EINEN 
TEXT ? (J/N)" 

440 CALL KEY(0,K1,S1):: IF S 
1=0 THEN 440 :: IF Kl=74 THE 
N 420 :: IF Kl078 THEN 440 
450 DISPLAY AT(24,1):"” :: G 
OTO 350 

460 IF K< >90 THEN 510 
470 DISPLAY AT(24,1):"WELCHE 
ZEILE ?" :: ACCEPT AT(24,16 
>SIZE(2)VALIDATE(DIGIT):WZ : 



: IF WZ<1 OR WZ>18 THEN 470 
480 CALL ZEIN(Z(,),BLATT,WZ) 
:: GOSUB 900 :: DISPLAY AT(2 
4,1):"NOCH EINE ZAHL ? (J/N) 

II 

490 CALL KEY(0,Kl,S1):: "IF S 
1=0 THEN 490 :: IF Kl=74 THE 
N 470 :: IF NOT Kl=78 THEN 4 
90 

500 DISPLAY AT(24,1):"" :: G 
OTO 350 

510 IF K< >78 THEN 530 
520 CALL ANZ(T*(,),Z(,>,BLAT 
T):: GOSUB 900 :: GOTO 350 
530 IF KOI THEN 540 ELSE 23 
0 

540 IF K< >83 THEN 560 
550 CALL SAVE(T*(,) ,Z ( , )):: 
GOTO 320 

560 IF K< >82 THEN 580 
570 CALL READ(T*(,) ,Z ( , )>:: 
GOTO 320 

580 IF K<>76 THEN 610 
590 CALL PROZENT(Z(,),P(),BL 
ATT):: CALL SORT(T*(,),Z(,), 
PO, BLATT):: CALL ANZ(T*(,), 

Z ( , ) ,BLATT) :: CALL PROANZ(Z( 

,),P(),BLATT) 

600 GOSUB 900 :: GOTO 350 
610 IF K<>37 THEN 630 :: CAL 
L PROZENT(Z(,),P(),BLATT) 

620 CALL PROANZ(Z(,),P(),BLA 

TT):: GOTO 350 

630 IF K< >71 THEN 650 

640 CALL AUSW(Z(,),P(),BLATT 

) :: CALL ANZ(TS(,) ,Z ( , ) ,BLAT 

T):: GOTO 350 

650 IF K< >79 THEN 690 :: DIS 
PLAY AT(24,1):"BITTE RECHENO 
P. WAEHLEN" 

660 ACCEPT AT(24,27)SIZE(1)V 
ALIDATE("-"," + ","/",> = DD* 
670 IF DD*="+” THEN R=1 ELSE 
IF DD*—"—" THEN R=2 ELSE IF 
THEN R=3 ELSE IF DD 
*="/" THEN R—4 
680 GOSUB 900 :: GOTO 350 
690 IF K< >67 THEN 710 
700 CALL CLS(T*(,) ,Z( , ) ) : : G 
OTO 330 

710 IF K< >68 THEN 730 

720 CALL DUR(Z(,) ,BLATT) : : G 

OTO 350 

730 IF K< >65 THEN 350 
740 DISPLAY AT(23,1):"TEXT O 
DER" :: DISPLAY AT(24,1):"ZA 
HLEN VERTAUSCHEN (T/Z)" 

750 ACCEPT AT(24,27)SIZE(1)V 
ALIDATE("T","Z”):TZ* :: DISP 
LAY AT(23,1>:"" :: DISPLAY A 
T(24,1):"" :: IF TZ*="Z" THE 
N 820 
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760 DISPLAY AT(23, 1) : " 1. TEX 
T" :: DISPLAY AT(24,1):"BLAT 
T" :: DISPLAY AT<24,10):"ZEI 
LE" 

770 ACCEPT AT(24,7)SIZE(1)VA 
LIDATE(DIGIT):BL :: ACCEPT A 
T(24,17)SIZE(2)VALIDATE(DIGI 
T):ZE :: IF ZE<1 OR ZE>18 ÜR 
BL<1 OR BL>3 THEN 770 
780 DISPLAY AT(23,1):"2- TEX 
T" :: DISPLAY AT(24,1):"BLAT 
T" :: DISPLAY AT(24,10):"ZEI 
LE" 

790 ACCEPT AT(24,7)SIZE(1)VA 
LIDATE(DIGIT):BL1 :: ACCEPT 
AT(24,17)SIZE(2)VALIDATE(DIG 
IT):ZEI :: IF ZE1<1 OR ZE1>1 
8 ÜR BL1<1 OR BL1>3 THEN 790 
800 Q$=T$(BL,ZE):: T$(BL,ZE) 
=T*(BL1,ZEI):: T*(BL1,ZEI)=Q 
* :: DISPLAY AT(23,1):”" :: 
DISPLAY AT(24,1):"WEITER ? ( 
J/N)" 

810 CALL KEY(0,K1,S1):: IF S 
1=0 THEN 800 :: IF Kl=74 THE 
N 740 :: IF K1=7S THEN 320 E 
LSE 800 

820 DISPLAY AT(23,1):"1. ZAH 
L" :: DISPLAY AT(24,1):"BLAT 
T" :: DISPLAY AT(24,10):"ZEI 
LE" 


L 
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S 
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830 ACCEPT AT(24,7)SIZE(1)VA 
LIDATE(DIGIT):BL :: ACCEPT A 
T(24,17)SIZE(2)VALI DATE(DIGI 
T):ZE :: IF ZE<1 OR ZE>18 OR 
BL<1 OR BL>3 THEN 770 
840 DISPLAY AT(23,1):"2. ZAH 
L" :: DISPLAY AT(24,1):"BLAT 
T" :: DISPLAY AT(24,10):"ZEI 
LE" 

850 ACCEPT AT(24,7)SIZE(1)VA 
LIDATE(DIGIT):BL1 :: ACCEPT 
AT(24,17)SIZE(2)VALIDATE(DIG 
IT):ZEI :: IF ZE1<1 OR ZE1>1 
8 OR BL1<1 OR BL1>3 THEN 850 
860 Q=Z(BL,ZE):: Z(BL,ZE)=Z( 
BL1,ZEI):: Z(BL1,ZE1)=Q :: D 
ISPLAY AT(23,1):"" :: DISPLA 
Y AT(24,1):"WEITER ? (J/N)" 
870 CALL KEY(0,K1,S1):: IF S 
1=0 THEN 870 :: IF Kl=74 THE 
N 740 :: IF Kl=78 THEN 320 E 
LSE 870 

880 CALL ERR(X,XI,X2,Y):: IF 
X=109 THEN 890 ELSE ON ERRO 
R STOP 

890 RETURN Y 

900 ON R GOTO 910,920,930,94 
0 

910 CALL ADD(Z(,),BLATT,SU): 
: RETURN 


920 CALL SUB(Z(,),BLATT):: 
ETURN 

930 CALL MUL(Z(,),BLATT):: R 
ETURN 

940 CALL DIV(Z(,),BLATT):: R 
ETURN 

950 IMAGE ########.## 

960 IMAGE #########.## 

970 SUB SAVE(T$(,),Z(,)> 

980 CALL CLEAR :: DISPLAY AT 
(20,2):"ABSPEICHERN ? (J/N)" 

990 CALL KEY(0,K,S):: IF S=0 
THEN 990 :: IF K=74 THEN 10 
00 :: IF K=78 THEN SUBEXIT E 
LSE 990 

1000 OPEN #1:"CS1",INTERNAL, 
OUTPUT,FIXED 192 
1010 FOR 1=1 TO 18 STEP 3 
1020 PRINT #1:T$(1,I),T$<1,I 
+1),T*(1,1+2),T*(2,1),T*(2,1 
+1),T*(2,1+2),T*(3,1),T$(3,1 
+1),T£(3,1+2) 

1030 PRINT #1:Z(1,I>,Z(1,1+1 
),Z(1,1+2),Z(2,I),Z(2,1+1),Z 
(2,1+2),Z(3,I),Z(3,1+1),Z(3, 
1+2) 

1040 NEXT I 

1050 CLOSE #1 :: SUBEND 
1060 SUB READ(T$(,) ,Z ( , ) ) 
1070 CALL CLEAR :: DISPLAY A 
T(20,2):"EINLESEN ? (J/N)" 
1080 CALL KEY(0,K,S):: IF S= 
0 THEN 1080 :: IF K=74 THEN 
1090 :: IF K=78 THEN SUBEXIT 
ELSE 1080 

1090 OPEN #1:"CS1",INTERNAL, 
INPUT ,FIXED 192 
1100 FOR 1=1 TO 18 STEP 3 
1110 INPUT #1:T$(1,I),T$(1,I 
+1),T*(1,1+2),T*(2,I),T*(2,I 
+1),T*(2,I+2),T$(3,I),T$<3,I 
+1),T*(3,I+2) 

1120 INPUT #1:Z(1,I),Z(1,1+1 
) ,Z (1,1+2) ,Z(2,I) ,Z(2,1 + 1) ,Z 
(2,1+2),Z(3,I),Z(3,1+1),Z(3, 
1+2) 

1130 NEXT I 

1140 CLOSE #1 :: SUBEND 
1150 SUB ADD(Z(,),BLATT,SU): 
: DISPLAY AT(22,25)SIZE(1) : " 


1160 SU=0 :: FOR 1=1 TO 18 : 

: SU=SU+Z(BLATT,I):: NEXT I 
1170 DISPLAY AT(20,11):"TOTA 
L" :: DISPLAY AT(20,17):USIN 
G 960:SU :: SUBEND 
1180 SUB SUB(Z(,),BLATT):: D 
ISPLAY AT(22,25)SIZE(1):"—" 
1190 SS=Z(BLATT,1):: DISPLAY 
AT(20,11):"TOTAL" :: FOR 1= 
2 TO 18 :: SS=SS-Z(BLATT,I): 
: NEXT I 
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1200 DISPLAY AT(20,17):USINS 
960:SS :: SUBEND 
1210 SUB DIV(Z(,),BLATT) : : D 
ISPLAY AT(22,25)SIZE(1):"/" 
1220 ON WARNING NEXT :: SS=Z 
(BLATT,!):: FÜR 1=2 TO 18 :: 

IF Z(BLATT,I)=0 THEN 1230 : 

: SS=SS/Z(BLATT,I) 

1230 NEXT I 

1240 DISPLAY AT(20,11):"TOTA 
L" :: DISPLAY AT(20,17):ÜSIN 
G "######.#####":SS :: SUBEN 
D 

1250 SUB MUL(Z(,),BLATT):: D 
ISPLAY AT(22,25>SIZE(1>:" * " 
1260 ON WARNING NEXT :: SS=Z 
(BLATT,1):: FOR 1=2 TO 18 :: 

IF Z(BLATT,I)=0 THEN 1270 : 

: SS=SS*Z(BLATT,I) 

1270 NEXT I 

1280 DISPLAY AT(20,11):"TOTA 
L" :: DISPLAY AT(20,17):USIN 
G "##########.#" :SS :: SUBEN 
D 

1290 SUB SORT(T*(,),Z(,),P<> 

,BLATT):: DISPLAY AT(24,1): U 

BITTE WARTEN !" 

1300 FOR J=1 TO 17 :: A=Z(BL 
ATT, J+1):: A1=P(J+1):: AS=TS 
(BLATT,J+l) 

1310 FOR I=J TO 1 STEP -1 
1320 IF A>Z(BLATT,I)THEN 136 
0 

1330 Z(BLATT,1+1)=Z(BLATT,I) 
:: P(I+1)=P(I):: TS(BLATT,1+ 
1)=TS(BLATT,I) 

1340 NEXT I 
1350 1=0 

1360 Z(BLATT,1+1>=A :: P(I+1 
)=A1 :: TS(BLATT,1+1)=AS 
1370 NEXT J :: SUBEND 
1380 SUB DUR(Z(,),BLATT):: C 
ALL ADD(Z(,),BLATT,SU) 

1390 DISPLAY AT(23,1):"DURCH 
SCHNITT:" :: DISPLAY AT(24,1 
):USING "#########-###":SU/1 
8 

1400 CALL KEY(0,K,S):: IF S= 
0 THEN 1400 :: DISPLAY AT(23 
,1):"" :: DISPLAY AT(24,1):" 

II 

1410 SUBEND 

1420 SUB AUSW(Z(,),P(),BLATT 
):: CALL PROZENT(Z(,),P(),BL 
ATT):: CALL CLEAR :: W=97 
1430 DISPLAY AT(23,26):"#";B 
LATT 

1440 FOR 1=1 TO 18 :: DISPLA 
Y AT(I,20):USING "###.##":P( 
I):: DISPLAY AT(I,27):USING 
" ##": I :: NEXT I :: CALL VCH 
AR(1,28,37,18) 
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1450 DISPLAY AT(23,1):"12345 
6789111111111" :: DISPLAY AT 
(24,10):"012345678" 

1460 FOR 1=1 TO 18 :: L=P (I) 
7100*22 :: IF L=0 THEN 1490 
1470 CALL VCHAR(23— L ,I+2, W, L 
) 

1480 IF W=97 THEN W=98 ELSE 
W=97 

1490 NEXT I 

1500 CALL KEY(0,K,S):: IF S= 
0 THEN 1500 :: CALL CLEAR 
1510 SUBEND 

-1520 SUB CLS(TS(,),Z<,>) 

1530 DISPLAY AT(23,1):"TEXT 
ODER" :: DISPLAY AT(24,1):"Z 
AHLEN LOESCHEN (T/Z)" 

1540 CALL KEY(0,K,S):: IF S= 
0 THEN 1540 :: IF K=90 THEN 
1580 :: IF NOT K=84 THEN 154 
0 

1550 DISPLAY AT(23,1)SIZE(10 

) : "." : : DISPLAY AT 

(24,1):"WELCHES BLATT ?" :: 
ACCEPT AT(24,17):BL :: IF BL 
<1 OR BL>3 THEN 1550 


1560 FOR 1=1 TO 18 :: TS(BL, 

I)= "" :: NEXT I :: DISPLAY A 
T(24,1):"WEITER LOESCHEN ? ( 

J/N) " 

1570 CALL KEY(0,K,S):: IF S= 
0 THEN 1570 :: IF K=74 THEN 
1530 :: IF K=7B THEN SUBEXIT 
ELSE 1570 

1580 DISPLAY AT(23,1)SIZE(10 

) : 11 .•• : DISPLAY AT 

(24,1):"WELCHES BLATT ?" :: 
ACCEPT AT(24,17):BL :: IF BL 
<1 OR BL>3 THEN 32767 
1590 FOR 1 = 1 TO 18 Z(BL,I 
)=0 :: NEXT I :: DISPLAY AT( 
* 24,1):"WEITER LOESCHEN ? (J/ 
N) " 

1600 CALL KEY(0,K,S):: IF S= 
0 THEN 1600 :: IF K=74 THEN 
1530 :: IF K=7B THEN SUBEXIT 
ELSE 1570 


1610 SUBEND 

1620 SUB ANZ(TS(,),Z(,),BLAT 
T) 

1630 D=0 :: CALL CLEAR :: DI 
SPLAY AT(22,26)BLATT :: 
DISPLAY AT(19,17):"- 

1640 FOR 1=1 TO 18 :: DISPLA 
Y AT(I ,3):TS (BLATT,I) :: DISP 
LAY AT(1,18):USING 950:Z(BLA 
TT, I) 

1650 DISPLAY AT(I,1)SIZE(2): 
USING "##":I :: NEXT I :: SU 
BEND 
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1660 SUB PROZENT(Z(,),P(>,BL 
ATT):: ON WARNING NEXT :: SW 
=2 :: FÜR 1=1 TG 13 :: SW=SW 
+Z(BLATT,I):: NEXT I 
1670 FOR 1=1 TO 18 :: P(I)=Z 
(BLATT,I)/SW*100 :: IF P(I)> 
100 OR P(I><0 THEN P(I)=0 
1680 NEXT I :: SÜßEND 
1690 SUB ZEIN(Z(,),BLATT,WZ) 
1700 ACCEPT AT(WZ,21)VALIDAT 
E(NUMERIC)SIZE(8):Z(BLATT,WZ 
) 

1710 DISPLAY AT(WZ,18)SIZE(1 
1):USING 950:Z(BLATT,WZ):: S 
ÜBEND 

1720 SUB TEIN(T$ <,) ,BLATT,WT 
) 

1730 ACCEPT AT(WT,3)SIZE(10) 

:T*(BLATT,WT):: SUBEND 
1740 SUB PROANZ(Z(,),P(),BLA 
TT):: CALL PROZENT(Z(,),PO , 
BLATT) 

1750 CALL VCHAR(1,19,37,18): 
: FOR 1=1 TO 18 :: DISPLAY A 
T (I,14)SIZE<3) : US ING "###":P 
(I):: NEXT I :: SUBEND 



Fortsetzung von Seite 12 


100 PFM DEM01 
110 CAL.L CI.EAP 
120 CALL INTT 

130 CALL LOAD("DSKl.A/D! M > 
140 CALL I..TNK ( " TNPUT" ) 

150 CALL PFFK (17238,A,B) 
160 PR TNT A,B 
170 GOTO 140 


100 PFM DEMÜ2 
110 CALL CI EAP 

120 CALL CHAR(100,"18181899D 
BTF3C 18 ") 

130 CALL CHAR (101183C7EDB9 
9 1 8 1 8 J 8 " ) 

140 CALL. TNIT 

150 CALL I.OAD< “DSK1 .A/Dl"> 
160 CALL LINK< "TNPIJT" ) 

170 CALL PEEK(12288,A,B> 

180 IF A=127 THEN 190 ELSE 2 
20 

190 PRINT TAB(4);CHP*(100) 
200 PRINT 
210 GOTO 160 

220 IF A=255 THEN 230 ELSE 2 
60 

230 PRINT TAB < 4);CHR*<101) 

240 PRINT 

250 GOTO 160 

260 WERT=1.3+B/50 

270 AUS*=STR* (WERT 

280 PRINT SEG* (AUS*, l f 4)8c" V 

OLT" 

290 GOTO 160 
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********************** 


100 CALL CHARSET :: TI=6 :: 

CALL CLEAR :: CALL SCREEN(14 
) 

110 FOR 10=1 TO TI :: READ P 
0,E,T,R,HH,ER :: FOR A=1 TO 
T :: READ R* :: CALL CHAR(99 
+A,RS):: NEXT A 

120 CALL SPRITE(#1,100,2,E,R 
,HH,ER):: HT=HH*8-20 
130 FOR AS=1 TO T :: CALL PO 
SITION(#1,AA,BB):: IF AA>HT 
THEN 170 

140 CALL PATTERN(#1,99+AS):: 

NEXT AS :: FOR AS=T TO 1 ST 
EP -1 

150 CALL POSITION(#1,AA,BB): 

: IF AA>HT THEN 170 

160 CALL PATTERN(#1,99+AS):: 

NEXT AS :: GOTO 130 
170 CALL DELSPRITE(#1):: CAL 
L HCHAR(HH—1,ER,PO):: NEXT I 
O 

180 DISPLAY AT(4,13)SIZE(11) 

:"VON SPRITES" :: DISPLAY AT 
(7,9)SIZE(17):"UN DIE HOCHAC 
HSE" :: TI=1 :: TY=TY+1 :: I 
F TY< >2 THEN 110 
190 DISPLAY AT(18,8)SIZE(19) 

:"BY RONALD GOERKE" :: DISPL 
AY AT(24,10)SIZE(10>:"TASTE 
!!!" :: GOTO 290 
200 DATA 68,1,5,10,5,7,00782 
42424242478,0030181818181830 
,0018101010101018,000C181818 
18180C,001E24242424241E 
210 DATA 82,1,5,15,5,8,00784 
44478504844,0030282830202028 
,001010101010101,000C14140C0 
40414,001E22221E0A1222 
220 DATA 69,1,5,20,5,9,007C4 
0407340407C,0038202030202038 
,0010101010101010,001C04040C 
04041C,003E02021E02023E 
230 DATA 72,1,5,25,5,10,0044 
44447C444444,002828283828282 
8,0010101010101010,001414141 
C141414,002222223E222222 äW 
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240 DATA 69,I,5,25,5,11,007C 
40407840407C,003820203020203 
8,0010101010101010,001C04040 
C04041C,003E02021E02023E 
250 DATA 78,1,5,30,5,12,0044 
6464544C4C44,002838382828282 
8,0010101010101010,00141C1C1 
4141414,002226262A323222 
260 DATA 100,1,7,1,19,7,3C42 
99A1A199423C,182442525242241 
8,1018242424241810,101018181 
8181010,0818242424241808 
270 DATA 1824424A4A422418,3C 
42998585994238 
280 DATA 76,120,94,120,112,1 
28,94,102,94,138,112,146,112 
,110,112,92 

290 DATA FF818181818181FF,7E 
4242424242427E,3C24242424242 
43C,1818181818181818 
300 DATA 3C2424242424243C,7E 
4242424242427E,FF81818181818 
1FF,FF818181818181FF 
310 CALL CHAR(101,"FF8181818 
18181FF") : : CALL MAGNIFY(2): 

: RESTORE 280 :: FÜR A=1 TO 
8 :: READ AA,BB :: CALL SPRI 
TE <#A,101,8,AA,BB):: NEXT A 
320 RESTORE 290 :r FOR T=0 T 
07:: READ T* :: CALL CHAR( 
101,T*):: NEXT T ■ 

330 CALL KEY <0,K,S):: IF S=0 
THEN 320 

340 CALL DELSPRITE(ALL):: CA 
LL MAGNIFY(1):: DIM TU*(20) 
350 CALL CLEAR :: Y*="02468A 
CE02468ACE" :: YU,RT=1 :: A* 
, B*=" " :*: Z*= "0123456789ABCD 

EF" 

360 DISPLAY AT(1,1)SIZE(22): 
"HIER CODE EINGEBEN:" 

370 DISPLAY AT(2,1):: ACCEPT 
AT <2,1)SIZE(16)VALIDATE(DIG 
IT,"ABCDEF"):A* 

380 CALL CHAR(100,A*):: CALL 
SPRITE(#1,100,2,100,100) 

390 X*="" :: FOR A=1 TO 16 S 
TEP 2 :: C=POS(Z*,SEG*(A*,A, 
1) ,1): : 

400 C=(C—INT <C/2))—1 :: CC=P 
0S(Z*,SEG*(A*,A+1,1),1):: CC 
=CC*2-1 :: CC*=SEG*(Y*,CC/2, 
1) 

410 X*=X*&STR*(O&CC* :: NEX 
T A 

420 IF X*="0000000000000000" 
THEN 480 ELSE A*=X* 

430 CALL CHAR(100+YU,X $):: Y 
U=YU+1 :: GOTO 390 
440 CALL NENN 

450 FOR 10=1 TO YU/2 :: CALL 
CHARPAT(99+(YU/2)+10—1, TU*( 
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IO)):: NEXT IO :: FOR 10=1 T 
O YU/2 :: CALL CHAR(99+YU-I0 
+1,TU*(IO)>:: NEXT IO 
460 FOR AS=1 TO YU-1 :: CALL 
SCHLEIF(YU):: CALL PATTERN( 
#1,99+AS):: NEXT AS 
470 FOR AS=YU—1 TO 1 STEP -1 
:: CALL SCHLEIF(YU):: CALL 
PATTERN(#1,99+AS):: NEXT AS 
:: GOTO 460 

480 WQ=WQ+1 :: IF WQ=2 THEN 
440 ELSE YY*="084C2A6E195D3B 
7F" 

490 0Y*="" :: CALL CHARPAT(1 
00,RR*) 

500 FOR P=1 TO 16 STEP 2 
510 I=POS(Z*,SEG*(RR*,P,1),1 
) 

520 II=POS(Z*,SEG*(RR*,P+l,1 

) , 1 ) 

530 YI*=SEG*(YY*,1,1):: IY*= 
SEG*(YY*,11,1) 

540 OY*=QY*&IY*&YI* :: NEXT 
P :: CALL CHAR(99+YU+l,OY*): 

: A*=OY* :: YU=YU+1 :: GOTO 
390 

550 SUB NENN 

560 DISPLAY AT(5,1):"S FUER 
SPRITEFARBE" :: DISPLAY AT(6 
,1):"C FUER SCREENFARBE” :: 
DISPLAY AT(7,1):"V FUER VERG 
ROESSERUNG" 

570 DISPLAY AT(8,1):"N FUER 
NEU" :: DISPLAY AT(9,1):"A F 
UER AUSGEBEN" 

580 SUBEND 

590 SUB SCHLEIF(YU) 

600 CALL KEY(0,K,S):: IF K=8 

3 THEN PE=PE+1 

610 IF K=67 THEN EP=EP+1 

620 IF K=86 THEN PX=PX+1 

630 IF K—78 THEN RUN 

640 IF K=65 THEN CALL AUSG(Y 

U,PX) 

650 IF PE>16 THEN PE=2 ELSE 
IF PE=0 THEN PE=2 
660 IF EP>16 THEN EP=2 ELSE 
IF EP=0 THEN EP=14 
670 IF PX=0 OR PX >2 THEN PX= 
1 

680 CALL COLOR(#1,PE):: CALL 
SCREEN(EP):: CALL MAGNIFY(P 
X):: SUBEND 

690 SUB AUSG(YU,PR):: CALL C 
LEAR :: CALL DELSPRITE(ALL): 
: OP=l :: CALL CHAR (37 ,"0028 
2828"):: PRINT "CALL CHAR'S 
:: FOR A=100 TO 99+YU-1 : 
: CALL CHARPAT(A,T*):: PRINT 
T* :: NEXT A 

700 DISPLAY AT(24,20):"TASTE 
!!" :: CALL KEY(0,K,S):: IF 
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S=0 THEN 700 ELSE CALL CLEA 
R :: PRINT :"PROGRAMMBEISPIE 
L:": :"CALL CHAR'S:100-..." 
710 PRINT "100 CALL SPRITE(# 
1,100,2,100,100)"110 FÜR A 
S=1 TO";YU-1;"120 FOR VERZ=1 
TO 10 :: NEXT VERZ" 

720 PRINT "130 CALL PATTERN( 
#1 ,99+AS) : : NEXT AS ": ,, 140 F 
OR AS=";YU-1;"TO 1 STEP -1" 
730 PRINT "150 FOR VERZ=1 TO 
10 :: NEXT VERZ":"160 CALL 
PATTERN(#1,99+AS):: NEXT AS 
:: GOTO 110 " 

740 CALL KEY <0,K,S):: IF S<> 
0 THEN END ELSE 740 
750 SÜßEND 
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Fortsetzung von Seite 3 7 

Sie aus dem Programm heraus immer mit 
FCTN 7 (AID) erreichen können. Nach 
Drücken einer beliebigen Taste, erscheint 
das eigentliche Arbeitsblatt, insgesamt gibt 
es drei voneinander unabhängige Arbeits¬ 
blätter, deren Daten aber beliebig ausge¬ 
tauscht werden können. 

Tastenbelegung: 

Q:\Venn Sie die Taste Q drücken, können 
Sie wählen, welches Arbeitsblatt Sie nun 
bearbeiten möchten. In welchem Arbeits¬ 
blatt Sie sich befinden, wird rechts un¬ 
ten neben dem # angezeigt. 

S: Wenn Sie die Taste S drücken, gibt Ihnen 
der Computer die Möglichkeit, die Daten 
der drei Arbeitsblätter auf einen Casset- 
tenrekorder abzuspeichern. 

R:Mit R können Sie die einmal abgespei¬ 
cherten Daten der Arbeitsblätter wieder 
in den Speicher einiesen. 

L: Wenn Sie die Taste L drücken, werden 
die Daten des jeweilig angezeigten Ar¬ 
beitsblattes, der Größe nach sortiert. 

Nach dem Sortiervorgang werden auch 
noch automatisch die Prozentzahlen mit 
ausgegeben, welche allerdings durch 
Drücken von N wieder entfernt werden 
können. 

%:Wenn Sie % drücken, werden die jeweili¬ 
gen Prozentwerte des angezeigten Ar¬ 
beitsblattes ausgegeben. 

Es können allerdings nur Prozente errech¬ 
net werden, wenn, alle Daten des jeweili¬ 
gen Arbeitsblattes dasselbe Vorzeichen 
haben. 100% werden nur angegeben, 
wenn die jeweilige Rechenoperation die 
Addition ist, dann entspricht die Summe 
der Daten 100%. Die Prozentwerte kön¬ 
nen mit N entfernt werden. 

G:Wenn Sie G drücken, werden die Prozent¬ 
werte grafisch dargestellt, die Prozente 
werden rechts auch noch einmal angege¬ 
ben. Sie können die Grafik durch Drük- 
ken einer Taste wieder verlassen. Bevor 
Sie die Grafik aufrufen, müssen Sie nicht 
erst die Prozente errechnen lassen, dies 
übernimmt der Rechner. 

0:Mit O können Sie eine neue Rechenope¬ 
ration wählen. Die jeweilige Rechenope¬ 
ration wird vor dem # angezeigt und 

Bitte lesen Sie weiter auf Seite 46 
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100 CALL INIT 

110 CALL LOAD(-31806,16) 

120 CALL CLEAR :: CALL SCREE 
N (11) 

130 GOTO 150 :: A,B,C,D,E,F, 
G,H,I,J,K,L,M,N,P,Q,S,T,X,Y= 
0 :: CALL CHAR :: CALL TASTE 
:: CALL DIS :: CALL ERG :: 
CALL KEY :: ANT :: DT 
140 CALL DRUCK :: CALL PRINT 
:: CALL FORM :: El,Fl,LI,Al 
, M1 , LE , ET , FS , LT , AT , MT , NT 
150 !@P— 

160 CALL CHAR(91,"4410284444 
7C4444",92,"24003C424242423C 
",93,"4400444444444438") 

170 CALL CHAR(123,"004400384 
4704444",124,"00240038444444 
38",125,"0044004444444438",1 


26,"3844445844645840") 

180 DISPLAY AT(11,8):". 

Berechnung eines.A 

nnuitCtendar1ehns" 

190 DISPLAY AT(17,1):"C BY G 

.+1. Imkemeyer.I 

m Geest er-f el d 42.4 


000 D>sseldorP—30" :: CALL T 
ASTE(0,P,S) 

200 INPUT "Drucker (J/N)? ": 
ANT :: IF ANT="J" THEN 210 : 

: IF ANT="N" THEN 240 ELSE 2 
00 

210 INPUT "Bezeichnung des d 
ruckers (z - B.:""PIQ"") ":DT 

220 OPEN #2:DT,OUTPUT 
230 T=2 :: GOTO 250 
240 T=0 

250 IMAGE "#########.##" 

260 DISPLAY AT(2,1)ERASE ALL 
:"Welche Berechnung soll dur 
chge-f 3-hrt werden?" : : DISPLA 
Y AT(5,1):"ErhIhung der Tilg 
ungsraten um die ersparten 
Zinsen" 


» 


43 









270 DISPLAY AT(10,3):"1—> jC 
hrlich" :: DISPLAY AT(12,3): 
"2—> bei jeder Rate" 

280 DISPLAY AT<17,1):"Bitte 
kennzi-f-fer eingeben" :: ACCE 
PT AT(18,1)SIZEd)BEEP:Q :: 

IF Q<0 OR Q>2 THEN 280 

290 CALL CLEAR :: CALL SCREE 

N (3) 

300 INPUT "Betrag in DM (z.B 
.1000.00)7 " : A 
310 INPUT "Zinssatz in 7. (z. 
B.3.75)7 ":B 

320 INPUT "Tilgung in 7.7 ":C 
330 INPUT "JChrliche Ratend 
,2,3,4,6,12)7 ":K :: D=12/K 
340 INPUT "In welchem Jahr w 
urde das. . - Dar 1 ehn au-fgenomm 
en(z.B. ...1985)7 ": G 

350 INPUT "In welchem Monat 
(1-12)7 ":H :: PRINT :: PRIN 
T :: PRINT 

360 INPUT "Wollen Sie Ihre E 
ingaben....Indern? ":ANT :: 
IF ANT="J" THEN 370 :: IF AN 
$="N" THEN 490 ELSE 360 
370 DISFLAY AT(1,10)ERASE AL 
L:"IHRE EINGABEN" :: DISPLAY 
AT <4,1):"1 Betrag: ";A :: D 
ISPLAY AT(6,1): "2 Zinsen: " ; 
B :: DISPLAY AT(8,1):"3 Tilg 
ung: ";C 

380 DISFLAY AT<10,1):"4 JChr 
1.Raten: ";K :: DISPLAY AT(1 
2,1):"5 Aufnahme in welchem 
Jahr: ";G :: DISPLAY AT(14,1 
):"6 In welchem Monat: ";H 
390 DISPLAY AT<20,1):"Welche 
Eingabe soll geCn-...dert w 

erden?. ... . -Bitte 

Kennziffer eingeben. .Keine 
Cnderung=0" 

400 ACCEFT AT(24,1)SIZE(1)BE 
EP:X :: IF X>6 THEN 400 ELSE 
IF X=0 THEN 490 
410 ON X GOSUB 430,440,450,4 
60,470,480 

420 INPUT "Weitere Cnderunge 
n (J/N) 7 ":ANT :: IF ANT="J 
" THEN 370 :: IF ANT="N" THE 
N 490 ELSE 420 
430 INPUT "Betrag in DM (z.B 
.1000.00)7 ":A :: RETURN 
440 INPUT "Zinssatz in "/ (Z. 
B.3.75)7 ":B :: RETURN 
450 INPUT "Tilgung in 7.7 ":C 
:: RETURN 

460 INFUT "JChrliche Ratend 
,2,3,4,6,12)7 ":K :: D=12/K 
:: RETURN 

470 INPUT "In welchem Jahr w 
urde das...Dar1ehn aufgenomm 

en(z.B. -1985)7 ":G :: RET 

URN 
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480 INPUT "In welchem Monat 

(1-12)7 ":H :: RETURN 

490 IF T=0 THEN 580 

500 A1=1NT(A*100+-5)/100 :: 

NT=STRT(A1):: CALL FORM(LE,N 

$):: AT=NT 

510 PRINT #T:CHRT<14);CHRT<2 
7);;CHRT(1);TAB(7);"Berec 
hnung eines AnnuitCtendar1 eh 
ns";CHRT(27);;CHRT(0) ; CHR 
T<10> 

520 PRINT #T:"Betrag in DM:" 

;TAB(40);AT 

530 PRINT #T: "Zinssatz in 7.: 

";TAB(40);B 

540 PRINT #T: "Tilgung in 7.:" 

;TAB(40);C 

550 PRINT #T:"JChrliche Rate 
n:";TAB(40);K 

560 PRINT #T:"Aufnahme des D 
arlehns in:";TAB(40);G 
570 PRINT #T:"In welchem Mon 
at:";TAB(40);H 
580 X=13 :: X=X-H :: H=X :: 
FÜR 1=1 TO K :: IF X<=D THEN 
600 :: X=X—D :: 

590 NEXT I 

600 DISPLAY AT(1,8)ERASE ALL 
:"Zinsen in ";G 
610 IF T=0 THEN 630 
620 PRINT #T:TAB(33);"Zinsen 
in "; G 

630 FOR N=1 TO K :: I=N :: E 
=A*B/100*X/12 :: L=E+F :: IF 
N=5 OR N=9 THEN GOSUB 1320 
640 IF T=0 THEN 680 
650 E1=INT(E*100+.5)/100 :: 
NT=STRT(El):: CALL FORM(LE,N 
T):: ET=NT 

660 Fl=INT(F*100+.5)/100 :: 
NT=STRT(Fl):: CALL FORM(LE,N 
T):: FT=NT 

670 L1=INT(L*100+.5)/100 :: 
NT=STRT(L1):: CALL FORM(LE,N 
T):: LT=NT 

680 CALL DIS(J,I,E,F,L,T,ET, 
FT,LT):: M=M+E :: Y=Y+X :: X 
=D :: IF Y=H THEN 690 :: NEX 
T N 

m 

690 IF T=0 THEN 720 
700 A1=INT(A*100+.5)/100 :: 
NT=STRT(A1):: CALL FORM(LE,N 
T):: AT=NT 

710 Ml=INT(M*100+.5)/100 :: 
NT=STRT(Ml):: CALL FORM(LE,N 
T):: MT=NT 

720 CALL ERG(A,M,T,AT,MT):: 
CALL TASTE(0,P,S) 

730 IF Q=2 THEN 1140 
740 CALL CLEAR :: DISPLAY AT 
(1,1):"Zins- + Tilgungsplan 
in";G+l :: DISPLAY AT(3,l)s" 
Zinsen.Til gung " 
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750 IF T=0 THEN 770 

760 PRINT #T:TAB(26);"Zins— 

+ Tilgungsplan in";G+l;TAB(5 
);"Zinsen";TAB(25);"Tilgung" 
;TAB(60);"insges.:" 

770 J=2 :: FOR 1 = 1 TO K : : E 
=A*B/100*D/12 :: F=A*C/100*D 
/12 :: L=E+F :: IF 1=5 OR 1= 
9 THEN GOSUB 1320 
780 IF T=0 THEN 810 
790 E1=INT(E*100+.5)/100 :: 
NT=STRT(El):: CALL FORM(LE,N 
T) : : ET=NT 

800 L1=INT(L*100+.5)/100 :: 
NT=STRT(LI):: CALL FORM(LE,N 
T> : : LT=NT 

810 CALL DIS(J,I,E,F,L,T,ET, 

FT,LT):: NEXT I 

820 A=A-(F*K):: M=M+(E*K) 

830 IF T=0 THEN 860 
840 A1=1NT(A*100+.5)/100 :: 
NT=STRT(A1):: CALL FORM(LE,N 
T):: AT=NT 

B50 M1=INT(M*100+.5)/100 :: 
NT=STRT(M1): : CALL FORM(LE,N 
T):: MT=NT 

860 CALL ERG(A,M,T,AT,MT):: 
CALL TASTE(0,P,3) 

870 G=G+1 :: CALL CLEAR :: D 
ISPLAY AT(1,3):"Tilgungsplan 
in";G :: DISPLAY AT(3,1):"Z 

i nsen.Til gung " 

880 IF T=0 THEN 900 

890 PRINT #T:TAB(26);"Zins— 

+ Tilgungsplan in ";G;TAB(5) 
;"Zinsen";TAB(25);"Tilgung"; 
TAB(60);"insges.:" 

900 J=2 :: FOR 1=1 TO K :: E 
=A*B/100*D/12 :: F=L-E :: IF 
A<F*K THEN 1020 :: L=E+F :: 
IF 1=5 OR 1=9 THEN GOSUB 13 
20 

910 IF T=0 THEN 950 
920 E1=INT(E*100+.5)/100 :: 
NT=STRT(E1):: CALL FORM(LE,N 
T):: ET=NT 

930 Fl=INT(F*100+.5)/100 :: 
NT=STRT(F1):: CALL FORM(LE,N 
T):: FT=NT 

940 L1=INT(L*100+.5)/100 :: 
NT=STRT(L1):: CALL FORM(LE,N 
T):: LT=NT 

950 CALL DIS(J,I,E,F,L,T,ET, 

FT,LT):: NEXT I 

960 A=A—(F*K):: M=M+(E*K) 

970 IF T=0 THEN 1000 
980 A1 = INT(A*100+.5)/100 : : 
NT=STRT(A1): : CALL FORM(LE,N 
T):: A$=N$ 

990 Ml=INT(M*100+.5)/100 :: 
NT=STRT(Ml):: CALL FORM(LE,N 
S):: M£=N$ 


1000 CALL ERG(A,M,T,A$,M$) : : 

CALL TASTE(0,P,S) 

1010 IF A>0 THEN 870 

1020 FOR N=1 TO K :: I=N :: 

IF F>=A THEN F=A ELSE F=L-E 

1030 L=E+F :: A=A—F :: IF N= 

5 OR N=9 THEN GOSUB 1320 

1040 IF T=0 THEN 1080 

1050 E1=INT(E*100+0.5)/100 : 

: NS=STR*(El):: CALL FORM(LE 
,NT):: ET=NT 

1060 F1=1NT(F*100+.5)/100 :: 

NT=STRT(Fl):: CALL FORM(LE, 
NT):: FT=NT 

1070 Ll=INT(L*100+.5)/100 :: 

NT=STRT(L1):: CALL FORM(LE, 
NT):: LT=NT 

1080 CALL DIS(J,I,E,F,L,T,ET 
,FT,LT):: NEXT N 
1090 M=M+(E*K) 

1100 IF T=0 THEN 1130 

1110 A1=INT(A*100+.5)/100 :: 

NT=STRT(Al):: CALL FORM(LE, 
NT):: AT=NT 

1120 M1=INT(M*100+.5)/100 :: 

NT=STRT(Ml):: CALL FORM(LE, 
NT):: MT=NT 

1130 CALL ERG(A,M,T,AT,MT):: 

IF A=0 THEN 1310 :: CALL TA 
STE(0,P,S) 

1140 F=A*C/100*D/12 :: E=A*B 
/100*D/12 :: L=E+F 
1150 IF T=0 THEN 1170 
1160 PRINT #T:"Rate/Jahr";TA 
B(18);"Zinsen";TAB(30);"Tilg 
ung";TAB(50);"AnnuitCt";TAB( 
65);"Restschuld" 

1170 G=G+1 :: CALL CLEAR :: 
DISPLAY AT(1,1):"Jahr:";G :: 

DISPLAY AT(3,1):"Rate" :: D 
ISPLAY AT(3,6):"»Zinsen*" :: 
DISPLAY AT(3,20):"*Tilgung* 

ii 

1180 DISPLAY AT(4,12):"*Rest 
schuld*" 

1190 J=3 :: FOR 1=1 TO K :: 
E=A*B/100*D/12 :: IF F>=A TH 
EN F=A ELSE F=L—E 
1200 A=A—F :: L=E+F :: M=M+E 
:: IF T=0 THEN 1260 
1210 E1 =T NT (E* 100+. 5) /.100 :: 

NT=STRT(El):: CALL FORM(LE, 
NT):: ET=NT 

1220 F1=INT(F*100+.5)/100 :: 

NT=STRT(Fl):: CALL FORM(LE, 
NT):: FT=NT 

1230 Ll=INT(L*100+.5>/100 :: 

NT=STRT(LI):: CALL FORM(LE, 
NT):: LT=NT 

1240 A1=1NT(A*100+.5)/100 :: 

NT=STRT(Al):: CALL FORM(LE, 
NT):: AT=NT 
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1250 M1 = INT(M*100+- 5)/100 :: 

NS=STRS(M1):: CALL FORM(LE, 
NS):: MS=NS 

1260 CALL PRINT <J,I,G,E,F,L, 
A,T,ES,FS,LS,AS) 

1270 IF 1=4 OR 1=8 THEN GOSU 
B 1330 
1280 NEXT I 

1290 CALL DRUCK(M,T,MS):: CA 
LL TASTE <0,P,S) 

1300 IF A>0 THEN 1170 

1310 IF T=0 THEN 1360 ELSE 1 

350 

1320 CALL TASTE(0,P,S):: J=2 
:: DISPLAY AT(3,1)ERASE ALL 

..Zinsen.Tilgung " 

:: RETURN 

1330 CALL TASTE(0,P,S):: J=3 
:: DISPLAY AT(3,1)ERASE ALL 
:"Rate" :: DISPLAY AT(3,6):" 
♦Zinsen*" :: DISPLAY AT(3,20 
):"*Ti1gung*" :: DISPLAY AT( 
4,12):"*Restschuld*" 

1340 RETURN 
1350 CLOSE #2 
1360 END 
1370 !@P+ 

1380 SUB DIS(J,I,E,F,L,T,ES, 
FS,LS) 

1390 !@P- 

1400 J=J+3 :: DISPLAY AT(J,1 
):USING 250:E :: DISPLAY AT( 
J ,13) :USING 250:F :: DISPLAY 
AT(J+1,1):"Rate";I :: DISPL 
AY AT<J+l,8):USING 250:L 
1410 IF T=0 THEN SUBEXIT 
1420 PRINT #T:TAB(15—LEN (ES) 

);ES;TAB(35-LEN(FS));FS;TAB( 
50);"RATE "; I;TAB(70—LEN (LS) 
>5 LS 

1430 !@P+ 

1440 SUBEND 
1450 !@P+ 

1460 SUB ERG(A,M,T,AS,MS) 
1470 !@P- 

1480 DISPLAY AT(20,1):"Rests 
chuld" :: DISPLAY AT(20,13): 
USING 250:A :: DISPLAY AT(22 
, 1):"Zinssaldo" :: DISPLAY A 
T(22,13):USING 250 :M 
1490 IF T=0 THEN SUBEXIT 
1500 PRINT #T:CHRS(27);"-";C 
HRS(1);"Zinssaldo: ";TÄB(30— 
LEN(MS));MS;TAB(40);"Restsch 
uld: ";TÄB(75-LEN(AS));AS;CH 
RS(10);CHRS(27);”-";CHRS(0) 
1510 !@P+ 

1520 SUBEND 
1530 !@P+ 

1540 SUB FORM(LE,NS) 

1550 !@P— 
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1560 LE=LEN(NS):: IF LE=1 TH 
EN 1590 :: IF POS(NS,".",1)= 
LE—1 THEN 1580 :: IF POS(NS, 
".",1)>0 THEN 1600 :: IF POS 
(NS,".",1)=0 THEN 1590 * 

1570 GOTO 1600 
1580 NS=NS&"0" : : LE=LE+1 : : 
GOTO 1600 

1590 NS=NS&”.00" :: LE=LE+3 
1600 IF LE<=6 THEN SUBEXIT 
1610 NS=SEGS(NS,1,LE—6)&","& 
SEGS(NS,LE—5,LE) 

1620 IF LE<=9 THEN SUBEXIT 
1630 NS=SEGS(NS,1,LE—9)&","& 
SEGS(NS,LE—8,LE) 

1640 !@P+ 

1650 SUBEND 

1660 SUB TASTE(0,P,S) 

1670 !@P- 

1680 DISPLAY AT(24,5):"Eine 
Taste dr>cken" 

1690 CALL KEY(0,P,S):: IF S= 
0 THEN 1690 
1700 !@P+ 

1710 SUBEND 

1720 SUB PRINT(J,I,G,E,F,L,A 
,T,ES,FS,LS,AS) 

1730 !@P— 

1740 J=J+3 :: DISPLAY AT(J,1 
):I :: DISPLAY AT(J,4):USING 
250:E :: DISPLAY AT(J,16):U 
SING 250:F 

1750 DISPLAY AT(J+l,11):USIN 
G 250:A 

1760 IF T=0 THEN SUBEXIT 
1770 PRINT #T:I;TAB<4);G;TAB 
(25—LEN(ES));ES;TAB(38-LEN(F 
S));FS;TAB(58—LEN(LS)>;LS;TA 
B (75—LEN(AS));AS 
1780 !@P+ 

1790 SUBEND 
1800 !@P+ 

1810 SUB DRUCK(M,T,MS) 

1820 !@P- 

1830 DISPLAY AT(19,1):"Zinss 
aldo:" :: DISPLAY AT(20,6):U 
SING 250:M 

1840 IF T=0 THEN SUBEXIT 
1850 PRINT #T:"Zinssaldo";TA 
B(25—LEN(MS));MS 
1860 !@P+ 

1870 SUBEND ' 


Fortsetzung von Seite 42 

nach jeder Zahlenänderung neu 
durchgeführt. Für die Rechenoperationen 
müssen Sie nur die bekannten Symbole 
eingeben (+,-,*,/), das Ergebnis wird 
dann jeweils bei TOTAL angezeigt. Bei 
der Multiplikation und bei der Subtrak¬ 
tion wird jeweils von oben nach unten 
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gerechnet. Bei der Multiplikation und 
bei der Division werden Daten mit dem 
Wert null „übersehen“. 

A:Mit A können Sie nun Text und auch Zah¬ 
len unter den einzelnen Arbeitsblättem 
untereinander austauschen. Sie müssen 
nur angeben, ob Sie Text (T) oder Zah¬ 
len (Z) austauschen wollen, weiter müs¬ 
sen Sie nur noch die jeweiligen Arbeits¬ 
blätter und die Spalten angeben. 

T: Mit T können Sie einen zehnteiligen 
Text in eine Spalte des jeweiligen Ar¬ 
beitsblattes eingeben. Sie müssen nur an¬ 
geben, in welche Spalte der Text ge¬ 
schrieben werden soll. 

Z: Mit Z können Zahlenwerte eingegeben 
werden und zwar achtstellige inklusive 
Komma. Die Zahlen werden nach der 
Eingabe mit US1NG an das richtige For¬ 
mat angepaßt. Ansonsten gilt das gleiche 
wie bei T. 

N:Mit N werden die Daten neu auf dem 
Bildschirm ausgegeben. Dabei werden 
etwaige Prozentwerte nicht mehr mit 
angezeigt. 

D:D schaltet auf Addition um und gibt den 
Durchschnitt an. Mit einer beliebigen 
Taste kann fortgefahren werden. 

@:Mit @ wird das Programm beendet. 

Leider konnte ich keine Druckerroutine ein¬ 
bauen, da ich über keinen Drucker verfüge. 
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FLUSH 

Flush ist ein sehr gelungenes Kombinations¬ 
spiel für 2 - 4 Spieler. Ziel ist es, zufällig 
vorgegebene Farbkombinationen zu erwür- 
feln oder gezielt einzutauschen. Bei der Ein¬ 
gabe beachten Sie bitte bei den Zeilen 210, 

215 und 220, daß der Inhalt der geschweif¬ 
ten Klammern jeweils die CONTROL-Taste 
plus eine andere Taste bedeutet, z.B. bei 
CTRL , ist die CONTROL-Taste zusammen 
mit der KOMMA-Taste zu drücken. Die ge¬ 
schweiften Klammern sind nicht einzuge¬ 
ben. Punkte sind als Leerzeichen (SPACE) 
einzugeben. 

Nun zum Programm: Sie können die zum 
Gewinn notwendige Punktzahl selbst be¬ 
stimmen (fangen Sie mal mit 15 an). Dann 
startet das Spiel mit einem auf den ersten 
Blick verwirrenden Bildschirm. Wenden wir 
uns zuerst der rechten Hälfte zu. Oben wird 
der Spieler, der am Zug ist, angezeigt, dane¬ 
ben die vier Figurenkombinationen (Ziel¬ 
code), welche Gewinnpunkte ergeben. Dar¬ 
unter befindet sich das Aktionsfeld und 
ganz unten der Figurenbestand des Spielers, 
der am Zug ist. Im Aktionsfeld werden die 
verschiedenen Spielzugmöglichkeiten ange- 
boten. In der linken Bildschirmhälfte sind 
das Eintauschfeld und der Figurenbestand 
des nächsten Spielers dargestellt, so daß 
sich dieser auf seinen Zug vorbereiten kann. 
Nachdem jeder Spieler vom Computer eine 
erste Figur zugeteilt bekommen hat, wird 
der erste Spieler nach seinem Zug gefragt. 
Wählt er „würfeln“, bekommt er eine wei¬ 
tere Figur zugeteilt. Bei „tauschen“ 
kommt das “EINTAUSCH“-Feld ins Spiel. 

Bitte lesen ßie weiter auf Seite 52 


********************** 


10 ! 

11 ! * 

12 ! * 

13 ! * 

14 ! * 

15 ! * 

16 ! * 

17 ! * 

19 ! * 

20 ! * 

21 ! * 

22 ! * 

26 ! * 

27 ! * 

28 ! * 

29 ! ********************** 
100 CALL CLEAR : : CALL MAGNI 
FV (2) 

110 DIM FAR(13,4),SC(4),FÄRB 
E(4,10),FÄRB (5, 10) ,0(6) ,HAT ( 
4), KE(5) ,FAFO$(4),COLO (5) ,CO 
L(4,5).CO$(4) 


FLUSH 

Copyright by 

Gerhard Kauntz 

Benoetigte Geraete 
TI99/4A Konsole 
Ext. Basic 

Speicherbelegung 
‘ 9037 Bytes 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


120 ! 

130 ! ZEICHENDEFINITION 

140 ! 

150 CALL CHAR(128,"427E5A7E2 
43C1S",120,"7E42427E5E7E7E7E 
*•, 130, " 00003C00003C ",104," 00 
13187E7E1318",112,"00183C7E7 
E3C1S") 

160 CALL CHAR<136,"7C383E3A3 
A3C387C") 

170 ! 

180 ! FARBGEBUNG 

190 ! 

200 I,SN,H,V,Vi,V2,V3,V4,V.5= 

2 :: GOSUB 3170 

210 PRINT "(CTRL ,>xhp..{CTR 

L H >. h. . (CTRL , . (CTRL 

H > hx{CTRL ,>..h. .p-:"(CTRL H 

>.(CTRL ,}.x . . ( CTRL 

H > . . p. X..CCTRL 

215 PRINT "px(CTRL ,}...h... 

..p..h..(CTRL ,>xh{CTRL H>.. 

phx(CTRL Hl":"(CTRL H>.p 

.(CTRL , > . . x. . ... . p. . (CTR 

L , > . . h " 

220 PRINT " h.x {CTRL HMC 

TRL , >h..{CTRL H> ph {CTRL ,}. 

. {CTRL H>":"{CTRL ,>..x.-p" 

:: PRINT :::::::: 

230 I,vi=l4 :: gosub 3170 :: 

l,V2*5 :: GOSUB 3170 :: i,v 
3*=7 :: GOSUB 3170 :: I,V4=16 
:: GOSUB 3170 :: I,V5=13 :: 
GOSUB 3170 

240 V=16 :: GOSUB 3170 :: DI 
SPLAY AT(24,5):"PRESS ENTER 
TO START!" :: ACCEPT VALIDAT 
E(KY$):KY$ :: V,V4=2 :: sn=3 


:: H=15 
















250 CALL CLEAR !i GOiül ti?fr 
260 DISPLAY AT(2,1):"EINTAUS 

CH: " 

270 CALL HCHAR(1,1,30,32):: 
CALL VCHAR<2,1,30,23):: CALL 
VCHAR(2,32,30,23) ' 

280 DISPLAY AT(10,18):"FLUSH 
H :: DISPLAY AT(11,18):"==== 

— II 

290 DISPLAY AT(14,14):"GERHA 
RD KAUNTZ" :: DISPLAY AT(16, 
18) : " (1984)" 

300 GOSUB 2930 
310 A=10 :: GOSUB 2870 :: FO 
R 1=5 TO 10 :: GOSUB 2830 :: 
NEXT I 

320 DISPLAY AT(8,15):"SPIELE 
RZAHL?" :: DISPLAY AT(10,15) 
(2-4) 2" 

330 ON WARNING NEXT 
340 ACCEPT AT(10,24)SIZE(-1) 
BEEP VALIDATE("234"):T 
350 DISPLAY AT(12,13):"ZIEL¬ 
PUNKTZAHL?" :: ACCEPT AT(14, 
20).BEEP VALIDATE(DIGIT) :P 
360 A=8 :: GOSUB 2870 
370 ! 

380 !NAMEN EINGEBEN 
390 ! 

400 DISPLAY AT(4,14)SIZE(17) 

I"NAMEN EINGEBEN!" :: DISPLA 
Y AT(6,13)SIZE(17):"(7 ZEICH 
EN MAX!)" 

410 FOR 1=1 TO T 

420 ACCEPT AT(1+7,15):NAME$< 

I) 

430 NEXT I 

440 DISPLAY AT(14,15):"SPIEL 
REGELN?" :: DISPLAY AT(16,18 
):" (J / N) N" 

450 ACCEPT AT(16,23)SIZE(-1) 
BEEP VALIDATE("JNjn"):R$ 

460 IF RS="J" OR R$="j" THEN 
1030 

470 GOTO 500 

480 DISPLAY AT(23,13):"WEITE 
R MIT ENTER" 

490 'ACCEPT AT(24, 13) VALIDATE 
(KY$):KY$ 

500 FOR 1=2 TO 21 :: DISPLAY 

AT(I,12):"" :: next I 

510 DISPLAY AT(22,16)12345 
6789" :: DISPLAY AT(23,13)1" 
"&RPT$< ,9) 

520 DISPLAY AT(2,13)SIZE(7): 
"SPIELER" :: DISPLAY AT(3,1) 
; RPT$ ("■''", 28) 

530 ! 

540 ! ZIELCODES 
550 ! 
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560 DISPLAY AT(2,21)SIZE(8): 
"ZIELCODE" 

570 CALL HCHAR(21,2,30,30):: 

CALL VC HAR (2, 14,30, 23) \ h \ CA 
LL VCHAR(2,22,30,10):: CALL 
HCHAR <12,15,30,17) 

580 FOR 1=2 TO 5 
590 CO$<I-l)="" 

600 CALL HCHAR(1*2,23,63 + 1) : 

: CALL HCHAR(1*2,24,62) 

610 FOR J=1 TO 5 
620 COL(1-1,J)=96+INT(RND*5+ 
1 )*8 

630 CALL HCHAR(1*2,J+24,COL( 
1-1,J)):: GOSUB 2830 
640 CO$(I-l)=CO$(I-l)&STR$(C 
OL<1-1,J) ) 

650 NEXT J :: NEXT I 
660 ! 

670 ! DAS SPIEL 
680 ! 

690 FOR L=1 TO T :: DISPLAY 
AT<5,13)SI^E(7):NAME$(L) 

700 S=L +1 :: IF S>T THEN S=i 
710 DISPLAY AT(22,2)SIZE(7): 
NAME$(S):: DISPLAY AT(23,1)S 
IZE(9):RPT$<"^",9> 

720 FOR R=1 TO HAT(S):: DISP 
LAY AT(24,R)SIZE(10-R):CHR$( 
FAR(R,S)):: NEXT R 
730 DISPLAY AT(8,14)SIZE(5): 
"SCORE" :: DISPLAY AT(10,15) 
SIZE(3):SC(L) 

740 ! 

750 !GESAMTE FARBEN ZEIGEN 

760 ! 

770 GOTO 800 

780 CALL HCHAR(24,18,32,13) 
790 DISPLAY AT(24,16)SIZE(9) 
:"" :: for R=i to hat (L):: D 

ISPLAY AT(24,R+15)SIZE(1):CH 
R$(FAR(R,L)):: NEXT R :: RET 
URN 

800 GOSUB 780 :: IF HAT(L)=0 
THEN 860 

810 A=12 :: GOSUB 2870 .* : DI 
SPLAY AT(14,15):"TAUSCHEN OD 
ER" :: DISPLAY AT(16,15):"WU 
ERFELN ?" 

820 DISPLAY AT(18,17)SIZE(10 
):"<T/W)W" :: Display at<20, 
14)SIZE(15);"NEUE FARBEN =>N 


830 ACCEPT AT(18,22)SIZE ( -1) 
BEEP VALIDATE("TWNtwn"):K$ : 

: for 1=1 to 3 :: gosub 
2830 :: NEXT I 

840 IF K$="T" OR K$="t" THEN 
1240 :: IF K$="N" OR K$="n" 
THEN GOSUB 2940 :: GOTO 810 
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850 ! 

860 ! WUERFELN 
870 ! 

880 A=12 :: GOSUB 2870 :: HA 
T(L)=HAT(L)+1 

890 DISPLAY AT(16,19):"FARBE 

ii 

900 FAR(HAT(L),L)=96+8*INT(R 
ND*5+i):: ON (FAR(HAT(L), L) - 
96)/8 GOSUB 2780,2790,2800,2 
810,2820 

910 DISPLAY AT(18,19):"> < 

" :: CALL SPRITE(#2,FAR(HAT( 
L),L),C,18*8-8,21*8+4) 

920 FOR 2=1 TO 400 :: NEXT Z 
:: GOSUB 780 
930 GOSUB 2870 

940 IF HAT(L)<5 THEN 980 ELS 
E IF HAT(L)>9 THEN 2650 
950 CALL DELSPRITE(#2):: DIS 
PLAY AT(16,13):"EINLOESEN (J 
/ N) N " 

960 ACCEPT AT(16,28)SIZE(-1) 
BEEP VALIDATE("JNj n"):K$ 

970 IF K$="J" OR K$="j" THEN 
2060 

980 GOSUB 2370 :: FOR 1=1 TO 
3 :: GOSUB 2830 :: next I 
990 GOSUB 790 
1000 CALL DELSPRITE(#2) 

1010 FOR U=i TO 300 :: NEXT 
U :: NEXT L 
1020 GOTO 690 
1030 ! 

1040 iSPIELREGELN 

1050 ! 

1060 FOR 1=15 TO 10 STEP -1 
:: GOSUB 2830 :: next i 
1070 DISPLAY AT(2,15):"SPIEL 
REGELN:" 

1080 DISPLAY AT(3,12):"MAN M 

uss versu-" :: Display at(4, 

12) : "CHEN,ZUFAELLIG" :: DISP 
LAY AT(5,12):"ERSCHEINENDE" 
1090 DISPLAY AT(6,12):"FARBF 
OLGEN ZU ER-" :: DISPLAY AT( 

7,12)I"HANDELN!" :: DISPLAY 
AT(8,12):"DAZU KANN MAN" :: 
DISPLAY AT(9,12):"ENTWEDER T 
AUSCHEN" 

1100 DISPLAY AT(10,12):"ODER 
WUERFELN!" :: DISPLAY AT(11 
,12):"ZUM TAUSCHEN STE-" 

1110 DISPLAY AT(12,12):"HEN 
KOMBINATIONEN" :: DISPLAY AT 

(13.12) :"ZUR VERFUEGUNG" 

1120 DISPLAY AT(14,12):"(S. 
LINKE SEITE)." :: DISPLAY AT 

(15.12) :"ZUM WUERFELN BIT-" 
1130 DISPLAY AT(16,12):"TE N 
UR ENTER" :: DISPLAY AT(17,1 
2):"DRUECKEN!" 
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1140 DISPLAY AT(18,12):"ES S 
IND"5 P»"PUNKTE" :: DISPLAY A 
T(19,12):"ZU ERREICHEN !" 
1150 DISPLAY AT(20,12):"HAT 
MAN MEHR ALS" :: DISPLAY AT( 

21.12) :"9 FARBEN,SO ZIEHT" : 
: DISPLAY AT(22,12):"DER TI 
DIESE AB!" 

1160 DISPLAY AT(24,12)SIZE(1 
6):"WEITER MIT ENTER" :: ACC 
EPT AT(24,28)SIZE(1):KY$ :: 
FOR 1=3 TO 24 :: DISPLAY AT( 

1.12) :"" :: NEXT I 

1170 DISPLAY AT<3,12):"DER T 
I GEHT WILL-" :: DISPLAY AT( 

4.12) :"KUERLICH VOR!" 

1180 DISPLAY AT(5,12):"RECHT 
S-OBEN WER-" :: DISPLAY AT(6 
,12):"DEN BALD 4 FÄRB-" :: D 
ISPLAY AT(7,12):"FOLGEN (A,B 
, C , D) " 

1190 DISPLAY AT(8,12):"ERSCH 
EINEN.SAMMLE" :: DISPLAY AT( 
9, 12) .'"DIESE FARBFOLGEN!" :: 

DISPLAY AT(10,12):"HAST DU 
EINE,DANN" 

1200 DISPLAY AT(11,12):"LOES 
E SIE EIN!" :.' DISPLAY AT(12 
,12): "BEI EINGABE DER" :: DI 
SPLAY AT(13,12):"FARBEN BITT 
E IHR" 

1210 DISPLAY AT(14,12):"ERSC 
HEINEN ABWAR-" :: DISPLAY AT 

(15,12) .* "TEN ! SIND ALLE GE- " 
:: DISPLAY AT(16,12):"WUENSC 
HTEN FARBEN" 

1220 DISPLAY AT<17,12):"EING 
EGEBEN,ENTER" :: DISPLAY AT( 

18.12) I"DRUECKEN!" :: DISPLA 
Y AT(21,13):"VIEL VERGNUEGEN 
! " 

1230 GOTO 480 
1240 ! 

1250 ! ABFRAGE DER REIHE 
1260 ! 

1270 GOSUB 2870 :: DISPLAY A 
T(16,14):"DRUECKE NR." :: DI 
SPLAY AT(18,14):"DER TAUSCHR 
EI HE" 

1280 ON WARNING NEXT 

1290 ACCEPT AT(4,4)SIZE(-1)B 

EEP VALIDATE("12345678"):NR 

1300 NR=NR+2 

1310 GOSUB 1340 

1320 GOTO 1620 

1330 ! 

1340 ! FARBPOSITIONEN 
1350 ! 

1360 DISPLAY AT(13,18):"- 

-.. . . DISPLAY AT(14,18 

):"" :: DISPLAY AT(15,18):"- 
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1370 DISPLAY AT(14,18):"!... 

.I “ :: po=0 :: FC*="- 

1380 DISPLAY AT(16,13):"GIB 
POSITIONEN!" 

1390 DISPLAY AT(18,13):"ENDE 
= > * ENTER’" :: DISPLAY AT(2 
0,13):"KORREKTUR«> ’K’" 

1400 FÜR Z=18 TO 17+HAT(L) 
1410 CALL KEY(0,K,S) 

1420 CALL HCHAR(21,Z,86):: C 
ALL HCHAR(21,Z,30):: IF S=i 
THEN 1460 
1430 NEXT Z 

1440 IF HAT(L)=PO THEN 1570 
1450 IF SOI THEN 1400 
1460 I=P0+9 :: GOSUB 2830 
1470 IF K=75 AND PO<>0 THEN 
1370 

1480 IF K=13 AND PO<>0 THEN 
1570 

1490 IF K< 49 OR K>57 THEN 14 
00 

1500 K=K-48 :: IF K<1 THEN 1 
400 

1510 PO=PO+l :: KE(PO)=K 
1520 CALL GCHAR(24,K+17,C0L0 
(PO) ) 

1530 IF COLO(PO)=32 THEN 134 
0 

1540 FC*=FC$kSTR$(COLO(PO)) 
1550 DISPLAY AT(14,KE(PO)+18 
)SIZE(1):CHR$<COLO<PO>) 

1560 GOTO 1400 

1570 GOSUB 2870 

1580 ORD$=FC$ :: N=LEN(FC$)/ 

3 

1590 GOSUB 2230 
1600 FC$=ORD$ 

1610 RETURN 
1620 FH$=FB$(NR) 

1630 ORD$=FA$(NR):: N=LEN(FA 
$(NR))/3 
1640 GOSUB 2230 
1650 FA$(NR)=ORD$ 

1660 IF FC$=FA$(NR)THEN 1730 
1670 FH$=FA$(NR) 

1680 ÜRD$=FB$(NR):: N=LEN(FB 
$<NR))/3 
1690 GOSUB 2230 
1700 FB$(NR)=ORD$ * 

1710 IF FC$=FB$(NR)THEN 1730 
1720 FOR 1=1 TO 50 :: DISPLA 
Y AT(18,13)BEEP:"FALSCHE EIN 
GABE!" :: NEXT I :: GOTO 810 
1730 ! 

1740 ! FC$ WIRD GETAUSCHT 
1750 ! 

1760 GOSUB 2870 

1770 GOSUB 2000 

1780 GOSUB 780 

1790 GOSUB 1830 

i800 IF HAT(L)>9 THEN 2650 


1810 GOTO 920 
1820 ! 

1830 !FARBSTRING DER GESAM¬ 
MELTEN FARBEN ERSTEL¬ 
LEN 

1840 ! 

1850 FAFO$(L) = " " 

1860 FOR Q=1 TO HAT(L) 

1870 CALL GCHAR(24,Q+17,FL) 
1880 IF FL=32 THEN 1900 
1890 FAFO$(L)=FAFO$(L)kSTR$< 
FL) 

1900 NEXT Q 

1910 FAFO$(L)=FAFO$(L)&FH$ 
1920 HAT(L)=LEN(FAFO$(L))/3 
1930 Y=i 

1940 FOR H=1 TO HAT(L) 

1950 FAR(H,L)=VAL(SEG$(FAFO$ 
(L),Y,3)) 

1960 Y=Y+3 
1970 NEXT H 
1980 RETURN 
1990 ! 

2000 ! LEERSTRING IN SAMM¬ 
LUNG SETZEN 

2010 ! 

2020 FOR Z=1 TO PO 
2030 FAR(KE(Z),L)=32 
2040 NEXT Z 
2050 RETURN 
2060 ! 

2070 ! EINLOESEN 
2080 ! 

2090 GOSUB 1330 
2100 IF LEN(FC$)< >15 THEN 22 
10 

2110 ORD$=FC$ 

2120 N=5 

2130 GOSUB 2230 

2140 FC$=ORD$ 

2150 FOR E=1 TO 4 
2160 ORD$=CO$(E) 

2170 GOSUB 2230 
2180 CO$(E)=ORD$ 

2190 IF CO$(E)=FC$ THEN 2400 
2200 NEXT E 

2210 FOR 1=1 TO 50 :: DISPLA 
Y AT(18,13)BEEP:"FALSCHE EIN 
GABE!" :: NEXT I 
2220 GOTO 950 
2230 KK,Y=1 

2240 Z=VAL(SEG$(ORD$,Y,3)) 
2250 I=KK-1 
2260 IF 1=0 THEN 2310 
2270 IF Z>=0(I)THEN 2310 
2280 0(1+1)=0(1) 

2290 1=1-1 

2300 GOTO 2260 

2310 0(I+1)=Z 

2320 IF KK<N THEN 2380 

2330 ORD$="" 

2340 FOR J=1 TO N 
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RETURN 


2350 0RD$=0RD$&STR$(0(J)) 

2360 NEXT J 

2370 RETURN 

2380 KK=KK+i :: Y=Y + 3 

2390 GOTO 2240 

2400 GOSUB 2000 

2410 GOSUB 780 

2420 FH$="" 

2430 GOSUB 1830 

2440 GOSUB 780 

2450 SC(L)=SC(L)+9-HAT(L):: 

DISPLAY AT(10,15)SI2E(3):SC( 

L) 

2460 IF SC(L)>=P THEN 2570 
2470 ! 

2480 ! NEUE FARBTAFEL 
2490 ! 

2500 CO$(E)= MM 
2510 FOR J = 1 TO 5 
2520 COL(E,J)=96+INT(RND*5+1 
)*8 

2530 CALL HCHAR ( <E + i.)*2, J + 24 
,COL(E,J)) 

2540 CO$(E)=CO$(E)&STR$(COL( 
E, J) ) 

2550 NEXT J 

2560 DISPLAY AT(24,1)SIZE(9) 
:"" :: goto 980 
2570 GOSUB 2870 
2580 DISPLAY AT(15,13):"BRAV 
0,GEWONNEN!" 

2590 FOR G=1 TO T 
2600 DISPLAY AT(1 6 + G,13)SIZE 
(12):NAME$(G)&"=";SC(G) 

2610 NEXT G 

2620 DISPLAY AT(22,1)SIZE(28 
):"NOCHMAL? (J/N)J" 

2630 ACCEPT AT(22,15)SIZE(-1 
)BEEP VAL IDATE("JNj n">:K$ 
2640 IF K$="J" OR K$="j" THE 
N RUN ELSE STOP 
2650 ! 

2660 ! UEBERZAEHLIGE FARBEN 
ABZIEHEN(ZUFAELLIG) 

2670 ! 

2680 PO=HAT(L)-9 

2690 DISPLAY AT(16,14)SIZE(1 

5)I"ICH ZIEHE"JPO 

2700 DISPLAY AT(18,14)SIZE(1 

5) :"FARBE(N) AB ! " 

2710 FOR ZA=1 TO PO 
2720 KE(ZA)=INT(RND*HAT(L)+1 
) 

2730 NEXT ZA 

2740 GOSUB 2000 

2750 GOSUB 780 

2760,FH$="" :: GOSUB 1830 

2770 GOTO 920 

2780 C=14 :: RETURN 

2790 C=5 :: RETURN 

2800 C=7 :: RETURN 

2810 C=2 :: RETURN 


L 

I 

S 

T 

I 

N 

G 

S 


2820 c=l 3 :: 

2830 ! 

2840 !SUB MELODY 
2850 ! 

2860 FOR JJ=110 TO 330 STEP 
110 :: CALL SOUND(-30,I*JJ,3 
):: NEXT JJ :: RETURN 
2870 ! 

2880 ! SCREENTEIL LOESCHEN 
2890 ! 

2900 FOR XX=1 TO 8 
2910 DISPLAY AT(A+XX,13): 
2920 NEXT XX :: RETURN 
2930 ! 

2940 !SUB TAUSCHMOEGLICHKEIT 
2950 ! 

2960 FOR 1=3 TO 10 :: FA$<I) 
= "" :: FB*(I) = M " :: NEXT I 
2970 RANDOMIZE 
2980 DISPLAY AT(4,1)SIZE(3): 
"NR. " 

2990 FOR 1=3 TO 10 
3000 DISPLAY AT(2*I,2)SIZE(i 
0);"" :: CALL HCHAR(1*2,2,AS 
C(STR*(I-2))):: CALL HCHAR(I 
*2,3,58) 

3010 A=INT(RND*4+1):: B=INT( 
RND*5+1) 

3020 FOR J=i TO A 

3030 FARBE(J,I)=96+8*INT(RND 

*5 + 1) 

3040 CALL HCHAR(1*2,J+7-A,FA 
RBE(J,I)):: GOSUB 2830 
3050 FA$ (I) =FA$ (I ) 2<STR$ (FÄRB 
E(J, I) ) 

3060 NEXT J 

3070 DISPLAY AT(1*2,6)SIZE(1 
):CHR$<130) 

3080 FOR K=1 TO B 

3090 FÄRB(K,I)=96+8*INT(RND* 

5 + 1) 

3100 FOR M=1 TO A 
3110 IF FÄRB(K,I)=FARBE(M,I) 
THEN K=K-1 :: GOTO 3150 
3120 NEXT M 

3130 CALL HCHAR(1*2,8+K,FÄRB 
(K,I)):I GOSUB 2830 
3140 FB$(I)=FB$(I)kSTR$(FARB 
(K,I) ) 

3150 NEXT K 
3160 NEXT I :: RETURN 
3170 CALL SCREEN(SN):: FOR L 
=1 TO 8 :: CALL COLOR(L,V,H) 
:: NEXT l :: call color( 10 ,v 
1,H,11,V2,H,12,V3,H,13,V4,H, 
14,V5,H):: GOSUB 2840 :: RET 
URN 


4 * 


TI-REVUE 
jeden Monat neu 
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10 REM******************** 

11 REM* MAGIC SQUARE * 

12 REM* * 

13 REM* Copyright by * 

14 REM* * 

15 REM*Meindert Lunenborg* 

16 REM* * 

17 REM*Benoetigte Beraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 968 Bytes * 

25 REM******************** 

26 REM 

100 CALL CLEAR 
110 CALL SCREEN(5) 

120 PRINT "...MAGIC SQ 
U A R E": :"...============ 


■ ■ 

130 FÜR DELAY=1 TO 250 
140 NEXT DELAY 
150 FÜR SET=1 TO 14 
160 CALL COLOR(SET,15,5) 

170 NEXT SET 
180 OPTION BASE 1 
190 DIM TX(841) 

200 GETAL=1 

210 PRINT "Enter number o-f r 
□ms :":" ( Only an uneven num 
ber.CI ,3,5,_,29D ) " : 

220 INPUT N 

230 PRINT "The square exists 

out o-f" :N;" x "; N; "squares" 

■ • 

• a* 

240 X=(2*N*N-N+1)/2 
250 TX(X)=GETAL 
260 IF GETAL=N*N THEN 410 
270 GETAL=GETAL+1 
280 IF INT(X/N)=X/N THEN 290 
ELSE 340 

290 IF X=N*N THEN 300 ELSE 3 
20 

300 X=X—N 
310 GOTO 250 
320 X=X+1 
330 GOTO 250 
340 X=X+N+1 

350 IF X>N*N THEN 360 ELSE 3 
80 

360 X=X—N*N 
370 GOTO 250 

380 IF TX (XX >0 THEN 390 ELS 
E 400 

390 X=X—(2*N+1) 

400 GOTO 250 

410 REM AUSDRUCK DES 

MAGISCHEN VIERECKS 
420 FOR J=1 TO N*N 
430 IF TX(J)<10 THEN 440 ELS 
E 450 


440 PRINT " "; 

450 PRINT TX(J) ; 

460 IF J/N=INT(J/N)THEN 470 
ELSE 480 

470 PRINT : : : 

480 NEXT J 

490 INPUT "Noch einmal? (J/N 
) :":JNS 

500 IF SEG$(JN$,1,1)="J” THE 

N 510 ELSE 550 

510 FOR SET0=1 TO 841 

520 TX(SET0)=0 

530 NEXT SET0 

540 GOTO 180 

550 END 


Fortsetzung von Seite 4 7 

Dort sind 16 Figurenkombinationen ver¬ 
bunden. Hat man eine der Kombinationen 
im eigenen Feld, kann man sie gegen die 
andere jenseits des Gleichheitszeichens tau¬ 
schen. So kann man manchmal für eine über¬ 
flüssige Figur Fünf wichtige Figuren bekom¬ 
men. Es ist dabei gleichgültig ob die eigene 
Figurenkombination rechts oder links vom 
Gleichheitszeichen steht. Man gibt nun die 
Nummer der einzutauschenden Kombina¬ 
tion ein. Dann ist die Position der benötig¬ 
ten Steine im eigenen Feld ins Aktionsfeld 
zu schreiben (nach der letzten Eingabe 
ENTER drücken). 

Hat man mehr als vier Figuren im eigenen 
Feld,erscheint am Ende eines Zuges die Fra¬ 
ge “Einlösen?“. Dies ist nun die Möglich¬ 
keit Punkte zu machen, falls man einen der 
vier “Zielcodes“ aus dem eigenen Feld zu¬ 
sammenstellen kann. Dabei spielt,wie beim 
“Einlösen“, die Reihenfolge keine Rolle, 
nur das Vorhandensein der Figuren in be¬ 
liebiger Reihenfolge. Geben Sie die Posi¬ 
tionsnummern ins Aktionsfeld und so kann 
Ihre Punktezahl sich erhöhen — falls kein 
Irrtum vorlag. 

Hört sich alles ein wenig kompliziert an, 
aber nach ein paar Spielen geht’s ganz ein¬ 
fach, die Bedienung des Spiels meine ich, 
denn das Spiel selbst erfordert einige Kom¬ 
binationsgabe. 


MAGIC 

SQUARE 


Wer kennt es nicht, das „magische Quadrat“, 
das in allen Senkrechten, Waagrechten und 
Diagonalen dieselbe Summe ergibt. Die¬ 
ses Programm erstellt alle Quadrate bis 
29 x 29 Felder (nur ungerade Zahlen!). Ein 
kurzes Programm, das es in sich hat. 
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TIPS & TRICKS 


SUB DIS/SUB ERG/SUB PRINT/SUB 
DRUCK= Bildschirm- u. Druckerausgabe. 
SUB TASTE=Zeit zum Betrachten des 
Bildschirms. 

Variablenliste: 

A=Betrag u. Restschuld B=Zinssatz 

C=Tilgungssatz D=Monate 

E=Prozentwert F=Tilgungswert 

G=Jahr H=Monat(e) 

I,J,N=Schleifenzähler K=Anzahl d. Raten 

L=Raten (Zinsen+ M=Zinssaldo 

Tilgung) 

P,S=Tastaturab frage 

T=Drucker( J—N) Q=Berechnungs- 

arten 

X,Y=Hilfsvariablen zur Zeitberechnung des 
1. Jahres. 

El ,F 1 ,A1 .Ml ,L1 ,LE,E$,F$ ,A$,M$ ,L$,N$ 
=Hilfsvariablen zur Zahlenformatierung. 

Für einige Anwender dürfte die beim TI not¬ 
wendige Formatierung der Zahlen für die 
Druckerausgabe interessant sein. 


DARLEHENS 


RECHNUNG 


Dieses Programm haben wir entwickelt, weil 
wir uns über das Programm von TI “Ihr 
Finanzberater“ (bei dem es nur möglich ist, 
Darlehen mit einer bestimmten Laufzeit zu 
berechnen) geärgert haben. 

Mit unserem Programm können Darlehen — 
wie bankenüblich - berechnet werden, die 
je einen einzugebenden Zins- und Tilgungs¬ 
satz haben. Die Zahlung erfolgt in gleichblei¬ 
benden Raten, d.h. die Tilgung erhöht sich 
um die durch' die fortschreitende Minderung 
des Darlehens ersparten Zinsen. 

Bei der ersten Berechnungsart werden die 
Tilgungsraten nur am Ende eines jeden Jah¬ 
res vom Darlehen abgezogen, während dies 
bei der zweiten Berechnungsart bei jeder 
Rate geschieht. 

Falls ein Drucker vorhanden ist, können die 
Daten ausgegeben werden. Wir haben den 
Epson RX80 benutzt. 

Es dürfte auch nicht schwer fallen, das Pro¬ 
gramm für normale Zinsrechnung umzu¬ 
ändern. 

Programmbeschreibung: 

100- 110 schalten die Quittaste ab (müs¬ 
sen ohne Speichererweiterung 
wegfallen). 

160— 170 Definition der Umlaute (wie 

sie auch im deutschen Zeichen¬ 
satz beim Drucker liegen). Viel¬ 
leicht kleben Sie auch vorne 
auf die entsprechenden 
Tasten 

200- 240 Abfrage, ob Drucker verwen¬ 
det wird. 

250 Abfrage der Berechnungsart 

290- 350 Abfrage der Einzelheiten des 
Darlehens. 

360 Eingaben richtig? 

370- 480 Eingabekontrolle u. evtl. 
Änderungen 

490— 570 Druckerausgabe der Darlehens¬ 
einzelheiten. 

580— 630 Berechnung der Zinsen für das 
1. Jahr. 

640— 670 Formatierung der Zahlen für 

die Druckerausgabe (zusammen 
mit “SUB FORM“). 

680 Bildschirm- u. Druckerausgabe 

700- 710 Wie 640-670 

720 „ Wie 680 

740— 760 Bildschirm-u. Druckerausgabe 

770—1010 Berechnung der Zins- u. Til¬ 
gungsraten 

1020—1130 dito für das letzte Jahr. 

1140—1290 2. Berechnungsart (monatl. 
Erhöhung der Tilgung. 


Dies ist ein sehr nützliches Programm, mit 
dem Sie schnell und ohne Aufwand Sprites 
den Eindruck, sich zu drehen, geben kön¬ 
nen. Dazu müssen Sie nur Ihren Spritecode 
eingeben und nach wenigen Sekunden wird 
sich Ihr Sprite um die Hochachse drehen. 
Sie können ihn dann noch vergrößern und 
die Hinter- und Vordergrundfarben ver¬ 
ändern. 

Die entsprechenden Zeichencodes werden, 
wie auch das Beispielprogramm, auf 
Wunsch ausgeschrieben. R. Goerke 
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m* 

SERVICE 


DER 

BIT¬ 

MAP- 

MO¬ 

DI 


Wer kennt nicht die tollen Computergrafiken, 
die einen aus Prospekten und Zeitschriften regel¬ 
recht anlachen? Will man nun als eingefleischter 
Tl-Besitzer auch auf seinem eigenen Bildschirm die 
Punkte, Linien und Kreise erscheinen lassen, stößt 
dies auf einige Schwierigkeiten. Im TI (X) Basic kann 
man höchstens 127 Zeichen umdefinieren. 

Dies ist gerade ein Sechstel des ganzen Bildschirmes, 
also eine recht kleine Angelegenheit, oder? 

Nun kann man aber in Assembler einen Grafikmode, 
den sogenannten Bit Map Mode einschalten, der eine 
viel bessere Grafik erlaubt. So kann man alle 192 x 256 
Punkte einzeln ein- und ausschalten, und noch dazu 
in 16 Farben. In diesem Beitrag wollen wir uns 
mit dem Einschalten dieses Modus und einem 
Beispielprogramm beschäftigen. 


IN TI- AS¬ 
SEMBLER 


Der TI 99/4A hat einen 
Bildschirmprozessor 
(Video Display Prozessor) 
namens TMS 9929A. Die¬ 
ser VDP schickt die Bild¬ 
schirmsignale über den 
Pal-Modulator zum TV- 
Gerät. Da sich die Bilder 
immer genau wiederholen 
(außer es wird etwas auf 
den Bildschirm geschrie¬ 
ben), braucht der VDP 


einen Speicher, in dem er 
alle Informationen über 
das aktuelle Bild abspei¬ 
chert. Diesen Speicherbe¬ 
reich nennt man Bildwie¬ 
derholungsspeicher oder 
beim TI VDP Ram. Aller¬ 
dings kann der Micropro- 
zessor beim TI 99/4A 
nicht direkt auf diesen 
Bereich im Ram zugrei¬ 
fen. Schreibt man nun 


Hegasoft 

ist wieder da! 

Hesse Preisliste 

anfordern! 
Postfach 1201, 
39-8044 Unterschleißheim 


ELECTRONI K—SERVICE 
Linning 37 • 4044 Kaarst 2 
Tel. (02101) 60 32 08 

128 KByte-GRAM-Karte aufrüst¬ 
bar auf 512 K in kl. Firmware wie 
Hex-Monitor oder BPL-Loader 

ca. 745,— 

GPL-Assembler V2.1 von Michael 
Weiand 99,— 

Wieder zu haben: Eprommer- 
Platine (Topqualität 35,— 

— als kompl. Bausatz mit 28pol. 
Textool-Fassg. ohne 

Netzteil 135,— 

— oder fertig bestückt w.o. und 

gerpüft (ohne Netzteil) . 169,— 


Modulplatme (ab 10 Stck. 
Mengenrabatte) 20,— 

32 K-Platine aus TI REVUE 
9/85 16,90 

Preissenkungen: 

Modul-Leergehäuse 11,50 

CONVERT-Modul 129,— 

TEAC Laufwerk FD 55 B, 

DS/DD 399,90 

Mechatronic 128 K-Erweiterung 
mit Centronics-Interface 499,50 

Noch mehr Spezielles in unserer 
TI 99/4A-Angebotsliste — an¬ 
fordern! 

Versand per Nachnahme (+ 5 DM) 
oder per Vorausscheck (+ 3,50 DM) 


etwas auf dem Bildschirm, 
werden die Informationen 
Byte für Byte, ähnlich wie 
bei einer Schnittstelle, 
über eine Speicheradresse 
übertragen! 

Unser VDP kann 4 Grafik- 
modes erzeugen, also 4 
Arten, den Bildschirm zu 
beschreiben, jeweils mit 
anderen grafischen Mög¬ 
lichkeiten. Beim (X) Basic 
ist man auf den sogenann¬ 
ten Grafik Mode be¬ 
schränkt. Da dieser Mode 
nicht einmal 2 KB Spei¬ 
cher im VDP belegt, wer¬ 
den normalerweise auch 
alle Basic Programme. 
Zahlen und Strings in den 
restlichen 14 KB des VDP 
Rams abgelegt. 

Der 2. Mode ist der Text 
Mode. Dieser kann in ei¬ 
ner Zeile 40 Zeichen dar¬ 
stellen, da die Zeichen 
statt 8x8 nur 8x6 Punkte 
haben. Er wird unter an¬ 
derem beim Editor Assem- 
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bler und Tl-Writer Modul 
verwendet, ebenso wie 
beim Line by Line Assem¬ 
bler. 

Der 3. im Bunde ist der 
Multi Color Mode. Man 
kann 48x64 Punkte mit 
irgend einer der 16 Far¬ 
ben belegen. 

Schlußendlich gibt es noch 
den Bit Map Mode, mit 
dem wir uns näher beschäf¬ 
tigen wollen. 

Aber woher soll der Bild¬ 
schirmprozessor wissen, 
welcher Mode nun einge¬ 
schaltet ist? Dazu sind die 
8 VDP Register zuständig. 
Da die Verwendung dieser 
Register in den Handbü¬ 
chern schon ziemlich ge¬ 
nau erklärt wird, möchte 
ich nur kurz auf die Bele¬ 
gung unter dem Bit Map 
Mode hinweisen. Wie man 
die Register belegt, kön¬ 
nen Sie an Hand des Bei¬ 
spielprogrammes ersehen. 

VDP Register 0:>02 
1: >EO 
2: >06 
3: >FF 
4: >03 
5: >36 
6 : >00 
7: > 11 

Wenn man den VDP Re¬ 
gistern diese Werte zu¬ 
weist, schaut die Belegung 
der VDP Rams wie in 
Abb. 1 aus. Man erkennt, 
daß trotz Bit Map Mode 
genau 3'968 Bytes nicht be¬ 
nutzt werden. Dies sind 
also fast 4 KB, die man 
anderweitig verwenden 
kann. Noch etwas fällt ei¬ 
nem sofort auf: Die Defi¬ 
nitions-, Namens- und 
Farbenliste ist immer in 
je 3 Teile geteilt. 

Doch was sind diese 
Listen und was können 
sie? Um das leichter be¬ 
antworten zu können, 
möchte ich kurz zum be¬ 
kannten (X) Basic zurück¬ 
gehen. 

Die Namensliste ist im 
Basic von 0 bis 767 bzw. 
von >0000 bis >02FF 
im VDP Ram. Daher hat 
jedes Zeichen am Bild¬ 
schirm ein Byte in der 
Namensliste. Dieses eine 
Byte in der Namensliste 
zeigt auf genau 8 Bytes 
in der Definitionsliste. 
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SERVICE 


* 

Zufallsfarben fuer TI 99/4A und Mini Memory. 

Extended Basic oder 
Editor Assembler. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

■* 

* 

* 

# 


Beispie 1 programm -fuer den Artikel ueber den Bit Map 
Mode in Assembler. 

Es installiert den Bit Map Mode und bringt dann 
zufaellig Farben auf dem Bildschirm. 

Bas Programm kann man mit <FCTN>-<QUIT> stoppen. 

(c> Gerhard Kainz Wien 23.11.1985 




* Deklarationen NUR fuer Mini Memorv Benutzer! 

* 


SBW EQIJ >6024 
SBR EQÜ >6.02C 
WTR EQU >6034 


BLUP QSBW schreibt 1 Byte ins VDP RAM 
3LWP 3SBR liest 1 Byte vom VDP RAM. - 
BLWP 0WTR schreibt die VDP Register. 


-* 

-#• Deklarationen NUR fuer Extended Basic Benutzer! 
* 

SBU EQU >2020 wie oben 

9BR EQU >2028 wie oben 

WTR EQU >2030 wie oben 


* 

* Deklarationen NUR fuer Editor/Assembler Benutzer! 

* Im Listing steht statt USBW nur 3BW etc. 

* 

IDT ’ZUFARB’ Programmidentifizierung im Objektcode 

DEF 2UFARB Programmeintragung im DEF Table 

REF USBW,VSBR,VWTR 


* 


* 

* 

Daten 

und Lab 1 es 

fuer Mini 

Hern. X-Basic und E/A 

VDP 

DATA 

>0002 

VDP Reg 0: 

Bit Map Mode einschalten 


DATA 

>01E0 

1: 

Interrupt ermoeglichen 


DATA 

>0206 

2 ’ 

Namens 1istabasis! >1800 


DATA 

>03FF 

3: 

Farben 1istebasis: >2000 


DATA 

>0403 

4: 

Def. Basis! >0000 


DATA 

>0536 

5: 

Sprite Liste! >1B80 


DATA 

>0600 

6: 

Sprite Def. Basis! >0000 

UDP 

DATA 

>0711 

7: 

Hintergrungfarbe! schwär 
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SERVICE 


Mit diesen 8 Bytes ist ein 
Zeichen vollständig defi¬ 
niert - es erscheint am 
Bildschirm. 

Wie sieht das in der Pra¬ 
xis aus? Geben Sie CALL 
POKEV(220,161) ein. 

Es wird, so Sie das Mini 
Memory Modul haben, an 
der Stelle 220 in der Na¬ 
mensliste der Wert 161 
geschrieben. Der VDP 
liest nun den Wert 161, 
mit dem kann er aber 
noch nichts anfangen. Er 
multipliziert aber die 161 
mit 8, weil ein Zeichen in 
der Definitionsliste 8 
Bytes lang ist. Dazu 
kommt noch die Defini¬ 
tionslisten Basis. Da sie 
Null ist, bleibt es beim 
Wert 1288. Jetzt sind die 
8 Bytes von 1288 bis 
1295 die Bytes für das 
Zeichen A. Daher er¬ 
scheint das A links oben 
am Bildschirmrand. 

Also: Jedes Zeichen hat 
einen “Namen“, wie z.B. 
das A den Wert 161. 

Wenn nun dieser Wert ir¬ 
gendwo in der Namens- 
fiste steht, zeigt es dem 
VDP, wo die 8 Bytes 
stehen, die dort auf dem 
Bildschirm gehören. Da 
man auf ein Byte eine 
Zahl von 0 bis 255 spei¬ 
chern kann,kann man 
256 (!) verschiedene Zei¬ 
chen benennen,eben das 
1. Zeichen mit 0, das 
zweite mit 1 das letzte 
(=256) mit 255. 

Das heißt nichts anderes, 
als daß man an und für 
sich im Grafikmode von 
den 768 Zeichen am Bild¬ 
schirm 256 umdefinie¬ 
ren kann. Jetzt taucht 
aber die Frage auf, wieso 
man im Basic nur 127 
Zeichen definieren kann, 
obwohl im Basic der Gra- 
fikmode eingeschaltet ist. 
Da normalerweise auch 
die Basic Programme im 
VDP Ram Speicher abge¬ 
lagert werden, haben die 
TI-Leute einfach die 
Namens- und Farbenliste 
in die Definitionsliste hin¬ 
eingeschrieben, um Spei¬ 
cherplatz zu sparen. Dies 
ist auch der Grund, wie¬ 
so sowohl die Namens¬ 
liste als auch die Def.- 
Liste mit dem 1. Byte 
im VDP Ram beginnen. 


VD6 EQU VDP+16 Ende der VDP Reg. Daten 


* 

* Unterprogramm A: 

belegt einen Teil des VDP Rams mit einem Wert. 

* Registerplan UA: 

* Register 0: Anfangsadresse im VDP Ram 

* l! Im High Byte steht der Wert (zB >FF 00 ) 

* 2: Zaehler (wird auf 0 gesetzt) 

* 


UPA BLWP 9SBW 
DEC R2 

UA1 MOVB RI,9>8C00 
DEC R2 
JNE UA1 
B *11 


Der erste Wert wird ins VDP Ram 
geschrieben 

Die Schleife schreibt n-1 Mal den 
Wert vom Reg. 1 in das 
VDP Ram. 

Ruecksprung 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Unterprogramm B: 

Es installiert den Bit Map Mode und loescht den 
Bi 1 dsch irm. 

Registerplan UB! 

Register 0: fuer BLWP 9SBW wird veraendert 

l: -! - -! - 

2: Hilfsregister -!- -!- 

12: Ruecksprungsadresse -!- -!- 


UPB MOV R 11 , R12 
LI R2,VDP 
UB1 MOV *R2+,R0 
BLWP 0WTR 
CI R2,VD6 
JL UB1 
LI R0,>1800 
CLR RI 
LI R2,>100 
UB2 BLWP 9SBW 
A R2,R1 
INC R0 
CI R0,>1B00 
JL UB2 
CLR R0 
C.LR RI 
LI R2,>1800 
BL 9UPA 
LI R0,>2000 
LI RI,>1100 
LI R2,>1800 
BL 9UPA 
B *12 


Sicherung der Ruecksprungsadresse 
Adresse der VDP Register Werte 
Ein Wert ins Register 0 und 
mit WTR uebertragen 
Schon VDP Reg. 7 erreicht? 

Die Namensliste wird mit 0,1,2 bis 
233 belegt. Adresse: >1800 

Das High Byte von Reg. 1 ins VDP Ram. 

Register 1 wird um >100 

und die VDP Adresse um 1 erhoeht. 

Ende der Namensliste erreicht? 

Anfang der Definitions1iste 

Wert=0 das heisst die Definitions1ist 

wird ge 1oescht. 

Die Farben 1iste 

wird mit schwärz/schwärz belegt 
und wie oben mit UPA 
ins VDP Ram geschrieben. 
Ruecksprungsadresse in R12(!) 


* 

* Unterprogramm C: 

* Es rechnet eine (Pseudo) Zufallszahl auf dem High- 

* Byte von Register 3 aus. 

* Registerplan UC: 
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SERVICE 


Regiater 2: Hi lfar©gist®r wird veraendert 

R©giat©r 3: High Byt©: Zufallszahl -!- -!- 

Register 4: Hi 1-fsr©gister -!- -!- 


UPC LI R2,>6FE5 
MPY 0>83C0,R2 
AI R3 P >7AB9 
MOV R3,0 >83C0 
LI R4,>100 
CLR R2 
SWPB R3 
DIV R4|R2 
SWPB R3 
B *11 


* 

* HAUPTPROGRAMM 

* Das Haupt Programm b©l©gt zuerst di© D©finitions1ist© 

* mit Zuf a 1-1 swer ten und b©l©gt di© Farb©nlist© mit 

* schwarz und ®in©r Zufallsfarbe (-fu©r d©n ganz©n 

* Bildschirm). 

* Danach wird schwarz durch ©in© Zufal 1 s-farb© und auch 

* di© »rste Zu-f a 1 1 s-f arb® durch ®in® and©r® ®rm©tzt. 

* Das nachstehende Un t er pr ogr amm das Zu-f al 1 s-f arb®n mit 

* dem VDP Inhalt verknuepft gehoert eigentlich 

* direkt zum Hauptprogramm und steht daher hinter 

* diesem. 

* 


AORG > 7 F 0 0 
AORG >XXXX 


NUR -fuer Mini Mem Benutzer! 
NUR -fuer X-Basic Benutzer! 


ZUF LUIPI >8300 
LIMI 0 
BL 0UPB 
CLR R0 
CLR R6 
SFTO R8 
BL 0HA2 
HAI BL 0UPC 

ANDI 3,>F00 
CI R3,>200 
JL HAI 
AI R3,>1000 
LI R0,>2000 
MOV R3,R1 
LI R2,>1800 
BL 0UPA 
LI R0,>2000 
LI R6,>0FFF 
LI R8,>F0FF 
BL 0J4A2 
LI R0,>2000 
LI R6,>F0FF 
LI R8,>0FFF 
BL 0HA2 
JMP HAI 


Der Arb® i t sb®r e i ch wird au-f >8300 

-festgelegt und Interrupts geloeacht. 

Bit Map Mode wird ©ngeschaltet 

Die De-f i n i t i ons 1 i s te wird 

mit dem Unterprogramm 

HA2 mit Zu-f a 1 1 swer t ©n ge-fu©llt. 

Beginn der Schleife: durch eine 
Zufallszahl wird di© Hintergrundfarb® 
festgelegt. Schwarz oder transparent 
werden ausgeschlossen. 

Vordergrndfarbe ist schwarz, 
diese zwei Farben werden in di® 
ganze Farbenliste 
geschrieben. 

Anfang der Farbenlist® 

Zufallswerte fuer Vordergrundfab© 
Hintergrund bleibt gleich. 

wi© oben 

Zufallswert© fuer Hintergrundfarb©' 
Vordergrund bleibt gleich. 

Und noch©inmal! 


Gehen wir zurück zum 
Bit Map Mode. Auch in 
diesem Mode gibt es eine 
Namensliste, bei der jedes 
Zeichen am Bildschirm 
ein Byte hat. Allerdings 
ist die Namensliste (wie 
auch die Definitions- und 
die Farbenliste) dreige¬ 
teilt. Der erste Teil geht 
von der 1. bis zur 8. Zeile, 
der 2. Teil von der 
9. bis 16. und der 3. Teil 
von der 17. bis zur 24. 
Zeile. 

Jeder dieser Namenslisten¬ 
teile besteht aus 256 
Bytes, weil 768 durch 3 
geteilt 256 ist. Schauen 
wir uns einmal den ersten 
Teil des Bildschirmes an. 
Die Namensliste geht 
von > 1800 bis > 18FF 
und die Definitionsliste 
von 0000 bis 0800, man 
kann daher 256 Zeichen 
definieren. Wenn man die 
Namensliste mit 0,1,2 bis 

255 belegt, ist das Zei¬ 
chen ganz oben links mit 
dem “Namen“ 0 durch 
die Bytes 0 bis 7 in der 
Definitionsliste bestimmt. 
Das 2. Zeichen hat in der 
Definitionsliste den Platz 
8 bis 15, usw. Bis schließ¬ 
lich zum Zeichen in der 
3. Zeile und 32. Spalte. 

In der Namensliste steht 
dort 255, also wird 255 
einfach mit 8 multipliziert 
und dieses Zeichen wird 
daher von den Bytes 2040 
bis 2047 beschrieben. 
Soweit klar. Jetzt kommen 
wir zum 2. Teil: Auch 
hier ist die Namensliste 

256 Bytes lang. Nehmen 
wir an, wir belegen sie 
auch mit 0, 1,2 bis 255. 
Daher steht beim 1. Zei¬ 
chen in der 9. Zeile in der 
Namensliste der Wert 0. 
Jetzt bedeutet die 0 aber 
nicht, daß man die Bytes 
0 bis 7 der Definitions¬ 
liste nimmt, schließlich 
sind die ja im ersten Teil, 
sondern die ersten 8 
Bytes des 2. Teiles der 
Definitionsliste. Daher 
sind es die Bytes 2048 
bis 2055. Beim 2. Zei¬ 
chen ist es genau so, es 
werden die Bytes 2056 
bis 2063 genommen. 

Der 3. Teil ist genau wie 
die ersten beiden Teile 
aufgebaut. Mit anderen 
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HA2 

MOV RI 1,R12 

Unterprogramm HA2 


LIMI 2 

<QUIT> gedrueckt? 


LIMI 0 

Wenn nicht dann geht’* weiter! 


LI RS,>1800 

Laenge der Liste: >1800 Bytes. 

HA3 

BLWP 0SBR 

Ein Byte wird vom VDP Ram gelesen und 

- 

S2C R8, Ri 

mit dem i nver t i er ten ( ! ) R8 verknuep-ft 


BL 0UPC 

Eine Zu-fallszahl wird mit INV R6 ver- 


SZC R6,R3 

knuep-ft und dann mit übrigen reg mit 


SOC R3,R1 

dem logischen ODER weiter verknuep-ft. 


BLWP 0SBW 

Zurueck ins VDP Ram und dann 


INC R0 

die VDP Adraesse um 1 erhoehen. 


DEC R3 

zaehler -1 


JNE HA3 

Schon Ende erreicht? 


B *12 

Ruecksprung zum Hauptprogramm. 


>0000 


Definitionsliste 



Jeder Teil besteht 


1. Teil 

aus 8x256 Bytes, 



das sind 2048 

>0800 


oder >800 Bytes. 


2. Teil 


>1000 




3. Teil 


>1800 


Namensliste 


1. Teil 

Jeder Teil besteht 

>1900 

2. Teil 

aus 256 Bytes. 

>1A00 

3. Teil 


>1B00 


Sprites 128 Bytes 

>1B80 


Freies VDP Ram 



1920 Bytes 

>2000 


Farbenliste 


1. Teil 

Jeder Teil besteht 



wie bei der Definitions- 

>2800 


liste aus 2048 Bytes. 


2. Teil 


>3000 




3. Teil 


>3800 


Freies VDP Ram 



2048 Bytes (das sind 

—>3F F F 


2 KB) frei belegbar. 


VDP Ram Belegung im Bit Map Mode 


Worten: Jeder der 3 Tei¬ 
le entspricht praktisch 
einem Grafikmode, bei 
dem man je 256 Zeichen 
frei definieren kann. 
Wenn man jeden Teil der 
Namensliste mit 0, 1, 2 
bis 255 belegt, kann man 
alle Zeichen am Bild¬ 
schirm definieren, also 
alle 192x256 Punkte be¬ 
liebig ein- und ausschal¬ 
ten. 

Wie sieht es jetzt mit den 
Farben aus? Die Farben¬ 
liste ist wie die Defini¬ 


tionsliste dreigeteilt und 
6144 Bytes lang. Daher 
stehen auch pro Zeichen 
8 Bytes für die Farben 
zur Verfügung. Da man 
jetzt pro Byte 2 Farben 
speichern kann, kann 
man in den 8 Bytes 8 
Vorder- und 8 Hinter¬ 
grundfarben speichern. 
Jetzt teilt man einfach je¬ 
des Zeichen in 8 horizon¬ 
tale Stränge mit je 8 
Punkten. Jeder Strang hat 
nun eine Vordergrund- 
und eine Hintergrund fär¬ 


be! Um von der Defini¬ 
tionsliste in die Farben¬ 
liste zu kommen, etwa 
um einen Punkt in Rot 
erscheinen zu lassen, muß 
man die Definitionsadres¬ 
se mit >2000 addieren. 

Hat man z.B. in das Byte 
8 in der Definitionsliste 
den Wert >01 geschrie¬ 
ben, so erscheint in der 
1. Punktzeile und in der 
16. Punktspalte der Punkt. 
Will man nun diesen 
Punkt in Rot erstrahlen 
lassen, schreibt man ein¬ 
fach auf das Byte 2008 
den Wert >80. Bei den 
Farbwerten muß man be¬ 
achten, daß man die in 
den Basic Büchern ange¬ 
gebenen Codes um eins 
vermindern muß.- 
So viel zur Theorie des 
Bit Map Modes. 

Jetzt können wir uns ge¬ 
trost in die praktische 
Arbeit stürzen. 

Innerhalb dieses Bei¬ 
trages finden Sie ein 
Beispielprogramm, das 
Ihnen zeigt, wie man Bit 
Map Mode einschaltet. 

Es besteht aus 2 Zeilen, 
den Unterprogrammen 
und dem Hauptprogramm, 
das die Unterprogramme 
verbindet. Das hat gegen¬ 
über den Programmen, 
die in einer „Wurst“ ge¬ 
schrieben sind, einige 
Vorteile. Die Fehlersuche 
ist einfacher, da man jedes 
Unterprogramm einzeln 
testen kann. Ein 2. Vor¬ 
teil, den vor allem Sie 
nützen können und sol¬ 
len, ist, daß man einfach 
das Hauptprogramm ab¬ 
ändert, um ein neues 
Programm zu schreiben. 
Man muß aber aufpassen, 
daß keine Register dop¬ 


pelt verwendet werden. 
Sehr günstig ist daher ein 
Registerplan, in dem die 
Eingabe- und Ausgabere¬ 
gister genau verzeichnet 
sind. 

Jetzt zum heutigen Pro¬ 
gramm: Es besteht aus 
3 Unterprogrammen und 
einem kurzen Hauptpro¬ 
gramm. 

Das erste Unterpro¬ 
gramm, genannt UA, be¬ 
legt einen beliebigen Teil 
des VDP Ram mit einem 
Wert. Man kann es daher 
sehr gut zum Löschen 
verwenden. Um dieses 
Programm zu beschleuni¬ 
gen, habe ich einen klei¬ 
nen Trick angewendet. 
Der VDP hat einen inter¬ 
nen Zähler, der bei je¬ 
dem Schreiben (und Le¬ 
sen) um eins erhöht wird. 
Dieser Zähler wird durch 
BLWP VSBW gesetzt 
und dann kann man die 
Werte durch MOV RI, 
>8c00 übertragen. 

Das 2. Unterprogramm 
schaltet den Bit Map 
Mode durch Setzen der 
VDP Register ein und 
löscht den Bildschirm. 
Weil das 1. Unterpro¬ 
gramm aufgerufen wird, 
muß vorher die Rück¬ 
sprungadresse zum 
Hauptprogramm durch 
MOV R11, R12 gesi¬ 
chert werden. 

Beim 3. Unterprogramm 
wird eine Zufallszahl aus¬ 
gerechnet und im Regi¬ 
ster 3 abgespeichert. Das 
Prinzip habe ich mir vom 
GPL Befehl RAND im 
Betriebssystem ab 027A 
abgeschaut. 

Das Hauptprogramm 
schreibt zufällige Farben 
auf dem Bildschirm — ein 
eher einfaches Programm, 
das man aber noch ein¬ 
fach erweitern kann. 

Der Workspacepointer 
wird auf >8300 gesetzt, 
da dieser Bereich beson¬ 
ders schnell vom Micro- 
prozessor angesprochen 
wird. Allerdings sollte 
man in diesem Bereich 
vorsichtig sein, da sonst 
der TI leicht k.o. gehen 
könnte, und man ihn nur 
noch durch ein Aus- und 
Einschalten „wiederbele¬ 
ben“ könnte. 

Gerhard. Kainz 
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BÖRSE 


Verk. TI 99/4A + Ext.-B. 

+ 2 Spielmodule + 30 Pro¬ 
gramme + 7 TI-Revues + 
TI-Basic/Ext.-Basic für 
Anfänger und Fortgeschrit¬ 
tene für 300 DM. 

Tel. 05121/515407 


Endlich!! Orig. Editor/As¬ 
sembler auf Disektte. Info 
anfordem bei Tel.: 0212/ 
44101 


Teleprinter f. RS232-110 
Baud-8 Bit Lochstreifen¬ 
sender 100,—, Buchungsjour¬ 
nal (M) 125,—, Finanzberater 
(c) 10,—, Versandliste (D) 
15,—, Suche DISK Controller 
I o. II ext., Lagerverw., Rech- 
nungsst. u. 99 Spez. II. Frei¬ 
tag 06405 3511 


Suche P-Box, Disk, Disk¬ 
manager, 32K, RS232, U.S. 
W. Angebote nur schriftlich 
an R. Nell, 41 DU-2,5 Düssel¬ 
dorfer Landstr. 305, Angebo¬ 
te nur von funktionsfähiger 
Teile mit Preis. 


Verk. Konsole & ExB. + 32K 
+ V24 + Literatur + Bücher + 
Prog. + 4 Module nur kompl. 
Tel. 089/3137650 ab 19 h. 
VB DM 700 - incl. alle TI- 
Rev. Ausgaben 


Suche leere Peribox nur mit 
Interf. und Karte. Angebote 
an D. Karbach * Remscheider- 
str. 18 * 5650 Solingen l 
Tel. 0212/43140 


Hallo TI-32K-Besitzer! 

Wollt Ihr ED/Ass. Masch- 
Progr. auf Cassette? Dann 
fordert Info an bei D. Kar¬ 
bach * Remscheider Str. 18 * 
5650 Solingen 1 

Verkaufe: Mini-Mem 200,— 
Tl-Writer 100 - ED/AS 100- 
Datenverw. + Analyse 50,— 
ExBasic 100,-. W. Fahr, 
0911/352730 


Verkaufe TI-Basic Programme 
(Spiele). Liste kostenlos an¬ 
fordern. Ga. 25 Spiele vor¬ 
handen. Dietmar Lange, 
Krankenhausstr. 4a, 

5138 Hunsberg 


Verkaufe TI 99/4A Konsole 
+ Rec-Kabel 100 DM, Ex¬ 
Basic 100 DM. Zusammen 
180 DM. Orig, verpackt. 

Tel. 06106/15063 


Verk. TI 99/4A m. X-B. 
Rec. + Kabel-Joyst. + viel 
Litr. Kompl. 545,— DM 
P. Gerke 040/7131674 


Verk. diverse Spielmodule 
ab 23 DM (Carwars, Attack, 
T. City, Soccer, Munch M.) 
Michael Kreher, 06055 4684 


Suche TI-Box m. Discko 
ntr + Laufwerk evtl, auch 
nicht (org. TI) evtl. X-Basic 
Handbuch (deutsch) 

Tel. 089/7146559 


Tausche meine Supersoftware 
auf Cas/Disk. gegen Eure 
Module z.B. für Car-Wars 66 
Superspiele Pac-Man 88 usw. 
Modul-Angebot an: Marco 
Wintzer, Mühlstr. 42, 6070 
Langen. Rückporto nicht ver¬ 
gessen. 


Verkaufe Soft- und Hardware 
für den TI-99/4A z.B. schach, 
Parsec, Disketten-Controller, 
Info bei: M. Wintzer, Mühl¬ 
str. 42, 6070 Langen. Rück¬ 
porto nicht vergessen. 


Für Dieti 99/4AP-Box. Ori¬ 
ginal TI-Laufwerk, Controller 
und Diskmanager-Modul 
für 500,— DM zu verkaufen. 
Tel. 030/391 17 86 ab 16 h 


Suche zu TI 99/4A Geräte 
und Software für Systemer¬ 
weiterung. Schriftl. Ange¬ 
bote erbeten. Adolf Kropp, 
Hohenzollemstr. 27, 7141 
Möglingen 


Tausche Modul Miner 2049er 
+ Buch TI 8c X-Basic gegen 
Adventure-Modul mit Min. 

3 Adventurekassetten eventl. 
nur Modul Miner gegen A.- 
Modul mit min. 2 Kass. Ange¬ 
bote an M. Deinzer, Plecher- 
str. 24, 8564 Velden. 


Schüler, 14 J. sucht billig o. 
im Tausch gegen Parsec + 
Wertausgl. Ext.-Bas. + Sprach- 
synt. Thorsten Walter, 4630 
Bochum 1, Tel. 0234/521568 
von 17 bis 19.30 Uhr. 
Mathildenstr. 1 


Verkaufe 32 KByte für Peri- 
Box nur 199 DM. Tl-Invaders, 
PAC-MAN, PARSEC, -Munchi 
Man, Statistics und Datever¬ 
waltung je 30 DM. T. 02381- 
789030 


Suche M*A*S*HÜ 
Auch Tausch gegen 8c Moön 
Mine * + 10 DM verk. div. 
Module. Michael Kreher, Tel. 
060554684 


Fast geschenkt! TI 99/4A Sc 
ext. Basic &: P-Box 8c TI- 
Laufwerk & R232 Centronics- 
Schnittstelle &: 32K-Erweite- 
rung &: Drucker-Anschi. 

Kabel Cassettenrecorder &: 
anschl. Kabel, Joystic, ver- 
sch. Module, Tl-Cas. dt. 
Literatur u.a. 

TI-REVL'E komplett 
Joystick-Adapter 
viel Zubehör für VHB DM 
1700,- T. 06486/7363 
nach 1 6 Uhr. 


Verk. 32 K RAM-Erweiterung 
+ Centronics + Netzteil TI- 
Datenbus durchgeführt 300,— 
*MK* Postfach 1268*4443 
Schüttorf 


Verk. Dynamics: Digger 15,— 
Laser-Kartei 19.-*MK* 

Postf. 1268*4443 Schüttorf 


Verk. V-24 Interface (RS 
232) mit Netzteil ITI-Daten- 
bus durchgeführt für Sende- 
und Empfangsbetreib geeig¬ 
net (z.B. für Telefonmodem) 
200,- * MK * Postfach 1268* 
4443 Schüttorf 


TI 99/4A + Ext. Basic m. dt. 
Handbuch + Qar Wars + 
Schach + Joyst. + Selbstlern¬ 
kurs TI Bas. u. Ext. + Finanz¬ 
verwaltung + Rec. Kabel + 
Listings + Programme a. Kass. 
NP 1000,- für nur 495,- 
Tel. 02861/5928 


Suche für TI 99/4 original 
TI Recorder mit Anschluß¬ 
kabel. Tel. 02553/6935 


Suche Tl-Programme in Ex. 
Basic aus der TI-Revue 2/84 
— 9/85 auf Cassette 
Thomas Biehl,T. 05062/8089 


Verk. Kons., 32 KErw. 2 ta 
ufw., Module: Pers.-rep., 
Datenverw. + Anal.; S’tat, 
Ed. Ass. Multipl.; Writer; G. 
Dannenmann 071 1/361206 


Verkaufe Sharp-Daten Re¬ 
corder. Interessiert? Ange¬ 
bote an: S. Altstadt, Hoch- 
str. 23, 6909 Mühlhausen 2 


Verkaufe Original-Software 
für 11699 Postkarte an: 

S. Altstadt, Hochstr. 23, 
6909 Mühlhausen 2 


Suche gegen Bezahlung Soft¬ 
ware f.' TI 99/4A in TI 
B.u. Ext Basic Liste an: 

D. Boes-Krause, Frebstr. 11, 
2890 Nordenham 


Verk. Module: Der große 
Mampfer, Katz + Maus, 
Höhlenjagd, Tombstone 
City, Parsec je 20,— MK * 
Postfach 1268 * 

4443 Schüttorf 


Biete für: TI-Box m. Laufw. 
DM 400 dito m. 32K Erw. 
DM 550 Ext. 32 K Erw. m. 
Centr. DM 150,- 0203/ 
374897 


Verkaufe 60 Programme (Exb 
+ Tib) zum Gesamtpreis von 
nur 50 DM. Tel. 030/3614518 
Andi. 


Extended-Basic mit Hand¬ 
buch + 1 Buch TI 99/4A 
intern + 1 Buch TI 99 
spezial 1 + 9 Hefte TI-Revue 
zus. 200 DM kl. Entinger 
6550 Homburg, Westring 22, 
Tel. 06841/71693 n. 1 7 Uhr 


TI 99/4A + Ext. + Rec. + 
Joyst. + Parsec + Soccer + 
Kniffei + Statistik 400 DM 
(mit ca. 100 Progr.) H. Mal¬ 
zahn, Händelstr. 28, 4390 
Gladbeck. T. 02043-54871 


Verkaufe * TI-99-4A-120,-, 
Mini-Memory 120,—, TI- 
Bücher je 25,—, Alpiner 
Parsec je 15,—, Speech- 
Synth 100,—, Datenverwal- 
tungsmodule je 15,—.Joy¬ 
stick 30,—, Peri-Box mit 
Diskettenlaufwerk (defekt) 
350,—, TI Spezialhefte usw. 
Tel. (02821) 488268) ab 
19 h 


♦ACHTUNG!!* 

♦Suche TI-Besitzer* 
♦in Stormarn* 

♦Tel. 04532/6806* 


TI-CLUB-DORTMUND sucht 
Interessenten um eine KAUF¬ 
GEMEINSCHAFT zu bilden 
(Innerhabl der BRD). Infor¬ 
mationen bei: TI-CLUB- 
DORTMUND 1 Postlagernd 
027971,4600 Dortmund 1 
Adres. u. Ausrei. Frankierten 
Rückumschlag beifügen. 


**SUPERBILLIG** Verk. 
TI-99/4A + Rec. + Kabel + 
Ext. Basic + orig. Joyst. + 

6 Mod. z.B. Invaders, Munch- 
Man, Alpiner, A-Maze-Ing., 
Mind-Challengers, Hustle + 
viele Soft-Ware z.B. auf Rec. 
Olympics, u.A. + viel gute 
Bücher und Revues ALLES 

für NUR 395,- bei 

C. Stricker (Suiss) Tel. 055/ 

274988 


Verk. TI 99/4A + Box + 32 K 
+ Exbasic + Minimem + 

Dat I -Analy + Rec. Kabel + 
Module + Spiele + Literatur. 
Preis VB Tel. U. Braun 
07471/82232 


TI-994 A*Zubehör * neu 
TV-Sharp (16 Programme 
Tuner * Literatur * ca. 16 
Module * U. 100 Pro. Com¬ 
puterkurs * SM * 56 Hefte 
in 5 Ordner *** Tausch 
möglich gegen and. Syst. * 

VB 1200,-. Robert Kirch- 
mayer, Sollerstr. 24, 8110 
Murnau 

TI-Rechnungsstellung Speech 
Editor-TI-Adventure Spiele- 
TI Buchungsjournal — Buch 
TI intern. 07141-461147 
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TMS 9900 Assembler Hand¬ 
buch für das Mini-Memory- 
TI 99 Journal Special 
Assembler Programmsamm¬ 
lung 1 und TI original 
Extended Basic Handbuch. 
ÖS 350,-/DM 50- 
Tel. 0222-7516673 

Schnellste Datenverwaltung 
mit Kassette Ex-Basic- 
Datenverw.-Programm auf 
Kass. gegen Einsendung 
von 10 DM. Peter Hielscher, 
Am Wall 22, 4401 Saerbeck 


Tips & Tricks für TI 99/4A, 
Teile I + II, Insg. 27 KB 
(Ex-Basic) Kassette mit bei¬ 
den Progr. gegen Einsendung 
von 10 DM. Peter Hielscher, 
Am Wall 22, 4401 Saerbeck 


Ex-Basic-Programme zur 
Erstellung von Lotto-Syste¬ 
men für 6/49 und 7/38. 

Beide Programme auf Kass. 
gegen eins. 10 DM. 

Peter Hielscher, Am Wall 22, 
4401 Saerbeck 


Verkaufs- und Vorführmodul 
des TI 99/4A gegen Höchst¬ 
gebot zu verkaufen. 

Peter Hielscher, Am Wall 22, 
4401 Saerbeck. 


Assembler-Programme f. 

E/A. XB, MM + 32K: GPL- 
Disassembler; FAST-COPY 
(Sektorkopierer) kopiert jede 
Disk in drei Durchgängen. 
Info gg. Freiumschlag. Alles 
sofort lieferbar. 

Mathias Eichhorn, Ziegel¬ 
heck 1, 6240 Königstein 4 
(Schneidhain) 

Tausche Ass-Prg. für Ext- 
Baisc, 32 K + Cass. List4e an: 
Jens Tiedemann, 2070 
Ahrensburg, Große Str. 26 


Suche D RINGEND 
Periphericbox + Laufwerk 
(auch nicht orig.); Controller 
schon vorhanden! 

Tel. 0911/799425 


Wer hilft Schüler? Den Con¬ 
troller habe ich bereits. Doch 
wer verkauft mir günstig 
eine Exp. Box? 0911/79 94 25 


Verkaufe Sharp-Daten Re¬ 
corder. Interessiert? Schreibt 
an: S. Altstadt, Hochstr. 23, 
6909 Mühlhausen 2 


Teleprinter f. RS232, 110 
Baud und Lochstreifen¬ 
send. 100,—, Buchungs¬ 
journal (M) 125,—, Finanz- 
ber. (C) 10,—, Versand¬ 
liste (D) 15,—, Suche Disk 
Controller I o. II ext. Lager- 
verw. Rechngst. u. 99 Spez. II 
H.-O. Freitag, 06405/3511 


j 


TI 99/4A + Rek.-Kabel + 
lOTI-Revue + Tl-Spezial 
+ TI-Buch (Sybex) 

DM 200,- 
Tel. 0711/425990 


Verk. TI 99/4A + Reckabel 
+ Abdeckhaube + ca. 120 
Disks mit Software, ca. 50 % 
Assembler. Preis VB 0821/ 
63857 


Suche def. Hardware! Schrift¬ 
liche Angebote an D. Past, 
A-Roßhaupter 104, 8000 
München 70 


Achtung!!! Listings kosten¬ 
los — genauere Info: D. Hess- 
haimer — Rotkreuzstr. 4 — 
8919 Utting. T. 08806/7372 


TI99/4A, Ex-Basic, Joyst., 
div. Software (ca. 10 Casset- 
ten) 300 DM. Armin Handke, 
Zu den Buchen 32, 41 Duis¬ 
burg 29. Tel. 76 68 08 


Werdet Mitglied im Computer¬ 
club Karben. Beitrag DM 2 
pro Monat! Fordert für DM 
0,80 Info oder für DM 2 
ein Probeexemplar der Club¬ 
zeitung an. Bei: CCK; Am 
Hellenberg 24, 6367 Karben 1 


Last Mission, das neue Ad- 
venture für das Adventure- 
modul! DM 30 beilegen, 
Datenträger angeben und 
ab an: CCK; am Hellenberg 
24; 6367 Karben 1 


Ein neues Adventure für das 
Adventure-Modul: Last 
Mission für DM 30,—. Be¬ 
stellen bei: Computer-Club 
Karben; am Hellenberg 
24; 6367 Karben 1, Daten¬ 
träger angeben! 


Verkaufe TI 99/4A + Ext. 
Basic + Parsec + Attack + 
Speech Synth + Joystick + 
Programme + Literatur 
(deutsch und englisch) 

Für DM 600,—. Martin Feuer¬ 
stein, Buronstr. 31. 7700 
Singen. Tel. 07731/47927 


RS 232 * „PIO.“ Orig, drin¬ 
gend preiswert gesucht. P. 
Rohr, Freiburg * Tel. 0761- 
63931,21-22.30 h 


TI 99/4A, X-Basic, Schach- 
u. a. Module, Handbücher, 
Tl-intern, zu verkaufen. 

T.07556/8028 


TI-99 4A, GP-100A Printer 
m. MBI Interf., EX-Basic, 
MM, Datenverw, Statistik, 
Druck, Lohn-Eink. Steuer- 
pr., Schach, Othello u.v.a. 
Module und Programme. VB 
complett 800,— aber auch 
einzeln a.A. T. 0711/412647 


Verk. TI und Ex Basic Pro¬ 
gramme. Info gegen Rück¬ 
porto. B. Knedel, Tulpen¬ 
gasse 16,3171 Weyhausen 
Tel. 05362/71187 


TI 99/4A-System abzugeben: 
Konsole, Ex-Basic-Modul, 
Sprach Synth., Joysticks, 
Öriginalmodule und -Cas- 
setten, TI-Literatur (Bücher, 
Hefte, Listings) u.a. auch 
einzlen. 

Emde, Schulstr. 3, 5810 
Witten 3, T. (02302) 79353 


Suche preisg. Drucker-Printer/ 
Plotter Angebote an F. 
Meilinger, Fr.-Winter-Str. 43, 
4750 Unna 

TI 99/4A + Extended Basic + 
Persona) Record Keeping + 
Statistics + Schachmeister + 
Parsec + Munch Man + 

TI Invaders + Chisholm Trail 
+ Cassettenrecorder + Kabel + 
Joystick + Joystickadapter 
+ 4 Bücher + 25 Zeitschriften 
+ über 300 Programme auf 
Cassette zusammen nur 
DM 650,- VB. 

Tel. 02821/48993 Thomas 
Müller 


Verk. Ext. Parallel Inter¬ 
face (inkl. Kabel) 180 DM 
A. Gotti, Burgfelderstr. 61, 
4055 Basel (Schweiz) 


Verk. TI + Ext + Parsec + 
Adventure + Schach + Joyst. 
+ Rec.-Kabel + 70,— Spiele 
VB. Tel. 0201-737592 


Drucke jedes Programm — 
auch X-Basic für DM 0,3/ 
KB!!! Kassette +2DM + 
Betrag an P. Augath, 
Lönsweg 2, 3257 Springe 1 


Verk. TI 99/4A mit Recorder 
+ Kabel + XBasic + Zubehör 
+ Literatur 375,— DM. 

T. 02955/1318 


** Original TI Rechnungs¬ 
stellung — Disk — Buch 
Ext. Gasic engl. + TI intern. 
Tausche Prgr. Zerozap. 

T. 7141-461147 Höglingen 


Verkaufe Module und Disket¬ 
tensoftware, suche Speicher¬ 
erweiterung. M. Pochner, 
Brunhildstr. 31, 5300 Bonn 2 


Verkaufe neue org. TI Softw. 
Ex-Basic 100,— Schach (frz.) 
50,— Yahzee, Blasto, Much 
Man je 25,—. Finanz. Be¬ 
säter (Kass) 20,- 1 - Mathe 1 
(Disk) 30,— Teach Ex Basic 
(Diks) 50,— Versandliste 
(franz) 50,— Kass Kabel 10,— 
M. Freuler, Grutstr. 58, 
CH-8625 Gossau 
0041/1/935452 


*** Adv. Spiele von TI** 
auf Cass. o. Disk-Buch 
Tl-Intern-Speech Edit.-Zero 
Zap. — Tausche Prgr. 

T.07141/461147 


Suche: TE II, Speech-Synth., 
Speech Editor. Angebote an 
Tel. 07026/5885 


Suche folgende Module 
Speechsynth. E/A, Mini- 
Memory, Multi-Plan, LOGO, 
Pole-Pos. Angebote an: 
Herbert Hölzer, Mozartstr. 5, 
7514 Eggenstein-Leo 


Achtung! TI/99/4A, kompl. 
Box, Drucker, Sprachsynth. 
Ex.-B., Mini-M. Statist. 
Datenverw. + 5 Mod. 5 Bü. 
auch einz. 2600,— 

C. Gembe, T. 06121/844659 


Suche P-Code Karte mit 
manual zu angem. Preis. 
Angebote an P. Heimlich, 
Am Drudenbogen 21, 
8080 Fürstenfeldbruck 


TI-Ext.-Basic-Modul gesucht 
mit o. ohne Handbuch, Preis 
VS, max. DM 130,— melden: 
Silbernagel, 06724/207 


TI 99/4A + Ferns. + Rek. + 
Cass. Kabel + Spiel + Lern- 
mod. + Joyst. ca. 4 Spiele + 
dt. Handbuch + Bücher zu 
verk. VB 600,- 
Tel. 08051/5198 


Verkaufe: Int. Laufwerk orig. 
TI, für Box DM 270,- Ext. 
V24/RS232 Schnittstelle 
1/2 Jahr + Kabel DM 200,- 
8K-Speichererweiterung + 
Kass. m. Ladeprg. DM 65,— 
Scitz, Tel. 069/301030 


Verkaufe ext. 32K-RAM 
mit Centronics-Interface. 
Suche TI-RS232-Karte. Auch 
Tausch mögl. T. 02331/ 
586672 


TI-99/4A + Ext.Basic + Lite¬ 
ratur + 2 Joysticks + .... 
für 300 DM zu verkaufen od. 
im Tausch gegen Maerklin-HO, 
Karsten Wulff, Babenhauser 
Str. 328,48 Bielefeld 1 


Verk. TI 99/4A + 32 K 
Erw. + Cent. Interf. sofort 
anschl. an Konsole + Ex- 
Basic Org. TI + engl. + 
dtsch. Literatur + Basic 
Lerncass. + Software z.B. 
Dilsch. Editor oder Module 
Datenverw. u. Spiele VB 
400 DM. T. 0203/436183 


Suche Kontakte Raum Piz 7. 
Erfahrungsaustausch DFÜ 

unter Tel. 07161/31521. 
Werner Völker, 7336 Uhingen 
Postfach 33 
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Verkaufe Tl-Writer (deutsch) 
und Original 32 K Speicher- 
erweitrung für die Ex.-Box 
T. 05174/419 


Verkaufe: TI994-A, XBas, 
Recorder, 32K, Controler, 
Floppy, RS232, Oki-Drucker 
M80, Tl-Writer Datenverw. 

+ Anal., Disk. Man, Munch 
Man, Videogamesl, 150 
Prg. auf Disk, Data Becker. 
Preis VB Chr. Rudow Klap¬ 
pe 7, 3384 Liebenburg 
Tel. 05345-2295 


TI 99/4A, Ext. Modul Basic- 
lerncass., Data-Becker — 

Buch, TI-Basic / Ext. Basic 
Buch, DM 350,-. Tel. 04102/ 
55478 ab 22 h 


Nappsoft tauscht Programme 
in TI + Ex Basic. Liste an 
Roth Martin, Brucknerstr. 3, 
6680 Neunkirchen 7 


Hallo Leute! Braucht nie¬ 
mand Parsec, Al-Piner oder 
Invaders? Ich hab’ se nämlich: 
07253/22681 


SEX IS NOT SO CHEAP! 
Nur 5 DM für eine C60 voll' 
mit Ti-99 Pgms! Dv, Tv, 
Games, no Copies DC, 
Mondwea 9, 5450 NWD 
Thomas Jerusalem DC 
Mondweg 9 
5450 Neuwied 1 
Tel. 02631/26364 


Super!! Progra.-Sprache Pas¬ 
cal für TI-99 Info gegen Frei¬ 
umschlag, M. Pochner, Brun- 
hildstr. 31,5300 Bonn 2 


Verkaufe TI 99/4A-Konsole 
mit Schachmodul für nur 
298,- DM. T. 0041/71/ 
415929 


Suche Adventure-Listings 
oder Prgm auf MC's. Verk. 
Parsec-Othello + Schach- 
mdln für 100 DM + TI Revue 
MCS 3—5! Armin Holz, 
Rathausstr. 38, 5014 Horrem 


Extended Basic für 150 DM 
+ Programme + Bücher 
zu verkaufen. T. 02154/5268 


Wegen Aufgabe TI-99/4A + 
Ex-Basic + Munchman + 
Attack + Invaders + Carw. 

+ TCity + Chtrail + Parsex + 
Zero — Zap — VB 550 
ab 16 h. Tel. 0231/63 50 77 


Student sucht defekte 99- 
Peripherie unci Ti-Writer 
günstig Hoppe 02261/52929 

Suche die Diskette — Speak 
and Spell von TI. Zahle gut 
nach Vereinbarung. Tel. 069 
783480 ab 19.30 Uhr 


Verk. TI 99/4A kpl. mit 
CPS 99 + ext. Basic sowie 
ext. Basic II Plus für DM 
2950,— W. Reifschneider, 
069/5076253 

TI 99/ Ex. Basic, Sp.-Syn + 
Mod., Schach-Mod., Joyst. ca. 
100 Prog. Zubeh., umfangr. 
Literatur zu verk. VB Tel. 
04132/34991 


TI 99/4A Konsole neuwertig 
zu verkaufen. Preis VB 
Tel. 0281/22817 Mo-Fr 
02721/5395 Sa-So 


Suche Extended-Basic Modul 
bis ca. (150 DM) Schreibt an: 
Dietmar Lange, Krankenhaus- 
str. 4a, 5138 Heinsberg 


Verk. 6 Module für TI im 
Pack für DM 70,— Alpiner/ 
Tunnels of Doom / Soccer / 
Henhouse / Amazeing / Dri- 
viing Demon. A. Krause, 

Pf 6304 43,6 Ffm 63 


Suche Schaltpläne für 
RS232, 32 Kran usw. 

Andreas Gerlach, Haupt¬ 
allee 11, A-2602 Blumau 

Tausche AS-Prg. für Exb. 32K 
+ Cassü! Liste an Jens Tiede- 
mann, Große Str. 26, 2070 
Ahrensburg 

Suche Tauschpartner! Schickt 
mir Programme (XB + 32K) 
(nur Cassetten) ich schreibe 
schnell zurück. Oder ruft an!! 
Michael Bolte, Am Sport¬ 
platz, 3065 Neustädt 1, 

Tel. 05721/2627 


Verkaufe folgende Module: 


TI Extended Basic = 130,— 

Yahtzee = 35,— 

Car Wars = 30 

Ti Invaders = 30,— 

Video Games 1 = 30,— 

Othello = 30,— 


Matthias Orf, Birkenallee 34, 
D-3507 Baunatal 1 


Verkaufe: 32k-Erweit. ex¬ 
tern 250 DM, TI-Ex.-Bas. 

150 DM, Multiplan neuwert. 
180 DM, Centronids-Kabel 
f. FX 80 60 DM, Kass.-Rec.- 
Kabel 20 DM, Bücher: 

Special I 20 DM, II 25 DM, 
Planen u. kalk. m. Multiplan 
30 DM 

W. Hegener,Lindenallee lila, 
4190 Kleve 


Verkaufe Module: Car Race, 
Zero Zap, Tombstone je 
DM 15,—. Video Games 1, 
Fitness Trainer je DM 20,—; 
Munchman, Invaders, 

Othello DM 25,— Adventure 
+ Pirate A. auf Disk oder 
Cas. DM 35,— Günther Rehm 
Tel. 08261/1208 


Buchführungspr. f. X-Basic 
und Datenbankprogramm ges. 
Für prof. Progr. mit Vor- 
seuer/MWSt bis zur Kosten¬ 
trägerrechnung — zahle ent¬ 
sprechend. Bitte Kurzbeschr. 
m. VKP-Vorst. an W. Brandt, 
Michaelisweg 21,5013 
Elsdorf 


Verkaufe: Konsole, XB, Da¬ 
tei & Analyse, Buchungs¬ 
journal, Tombstone (4 Modu¬ 
le), Joyst. 2fach, Seikosha 
GP 100 a, MBI-Interface, 
Datenrec. (Geschw. 8c Ton¬ 
kopf verstb.) Rec.-Kabel 2- 
fach, 7 Bücher, TI-Revue 
(Abo), Tl-Spezial, Schaltpl. 
(RS232, Joyst., Box, DSK 
Cont., MPI, PAL) Progr. Cass. 
(Anw. u. Spiele. VHB 1500,— 
auch einzeln. Tel. 07245— 
3155. 


Verkaufe folgende Module: 
Schachmeister = 60,— 

Music Maker = 50,— 

Parsec = 35,— 

Personal Record 
Keeping = 35,— 

Matthias Orf, Birkenallee 34, 
3507 Baunatal 1 

Suche: Modulexpander 8fach! 
Dringend!!! Bitte melden bei 
Matthias Orf, Birkenallee 34, 
in 3507 Baunatal 1, Telefon: 
0561/497990 


Verkaufe Rekorderkabel 
lfach für 10,— DM Tips 8c 
Tricks für 25,— DM und Ex¬ 
tended / Basic Prg. Sammlung 
für 10,— DM. Matthias Orf, 
Birkcnallee 34, 3507 Bauna¬ 
tal 1, T. 0561/49 79990 


Verkaufe TI 99/4A + Ex. 
Basic + Recorder + 1 Joy¬ 
stick + Bücher + viel Soft¬ 
ware 600 DM — Sprach 
Synth. 100 DM - 13 Spiel- 
module auf Anfr. Wo? bei 
D. Waschke. T. 0231/636829 


Verkaufe Module Org.-ver¬ 
packt mit Anleitung meist¬ 
bietend: Pole Position, Moon 
Patrol, Shamus, Miner 2049, 
Popeye, Fathom, Treasure 
Island, Chrisholm Trail, 
Tombstone City, Microsur- 
geon. R. Schwalbe, 02368/ 
6237 


Verkaufe: TI-Adventure- 
Modul mit 10 Original TI- 
Adventure-Games zusammen 
für DM 125,- T.04321/73450 


Verkaufe: TI 99/4A mit Cas¬ 
setten-Recorder und Kabel 
(2 x), viel Literatur und viel 
Software auf 12 Cassetten 
archiviert zusammen für 
DM 250,-. T. 04321/73450 


ACHTUNG ASSEMBLER¬ 
FREAKS! Suche Kontakt zu 
E/A-Usern zwecks Informa¬ 
tions- und Programmaus¬ 
tausch. Weitere Interessen¬ 
gebiete: DFU u. Hardware¬ 
selbstbau. G. Morgenthaler, 
Angelstr. 24, 7143 Vaihingen/ 
Enz 


Verkaufe gegen schriftliches 
Gebot (auch einzeln): TI 99/ 
4A Rec-Kabel, P-Box + DSK 
+ Control, incl. Disk-Man. 

2 + DSK + Control, incl. 
Disk-Man. 2 + RS232+32k+ 
XBasic + Ed/Assm + TI- 
Writer + Buchungsjoumal + 
TEII + Invader Parsec + 
Moonsweeper + 3D-World + 
Wycove-Forth + 99-Special 
I + II + Tl-Intern + TI-Tips 
u. Tricks Thomas Becker, 

Im Kirchtal 6, 6750 Kaisers¬ 
lautem 26 


Zu verkaufen: TI 99/4A 
Konsole, Ext. Basic, Schach, 
Fußball, Invaders, V 24 
Karte f. Modulbox, Pro¬ 
gramme u. Literatur gegen 
Gebot bei: Albrecht Eger, 
Aeulestr. 15, 74 Tübingen 1 


Verkaufe: MBI-Interface (TI- 
auf Centronic) neuwertig und 
betriebsbereit für DM 150,— 
Tel.: 04321/73450 


TI-Freunde, wir lassen Euch 
nicht allein. Ständig Sonder¬ 
angebote vorhanden.Ihr 
werdet nicht enttäuscht sein. 
C-D Kollaske, Grazer Damm 
223, 1000 Berlin 41, 

Tel. 030/796 83 71 


Verkaufe TI99/4A + Exp 
Box + 32K + RS232 + Disc- 
Contr. + 2 x 40 TR-Laufw. 

+ XBas + E/A mit Handbuch 
+ TI 99 special I + II. 

Für 1450 DM (VB) A. Kiel¬ 
mann, Eysölden 56, 8546 
Thalmässing 


Ti 99/4A + X-Basic + Schach 
M. + Video Archiv + viele 
Progr. + Listings VB 400 
oder Tausch geg. Atari- 
800 XL mit Rek 1010 
Tel. 09191/96102 


Centronics-Interface 
150 DM f. Disk: Luxus 
Text Verarbeitung, VO-Kabel 
und Lemtrainer je 15 DM 
0871/71859 


Suche Module Tl-Writer und 
Multiplan, 32K-Erweiterung, 
TI-Laufwerk für Modulbox 
und kaufm. Software auf 
Disk. H. Vollmer, Vogelsang- 
str. 12, 7315 Weilheim, 

T. 07023/5692 
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Suche Disketten-L. und 
Schnittstelle. Christian 
Kircher, Herzbergstr. 10, 
6000 Frankfurt 
T. 069/578625 


TI 99/4A + Zubeh. sehr 
preiswert abzugeben. Liste 
Anf. H. Klamm, Weedstr. 4, 
6737 Boehl. T. 06324/64770 


Verkaufe 32’-Speicherer- 
weiterung mit Centronics 
u. durchgeführten Bus (extern) 
T. 0233/58 66 72 


Peripherie-Box, Karte u. 
aufwerk, XBASIC, EA, 
LOGO, PASCAL original, 
neuwertig zu verk. 

Tel. 07271/52200 

TI + ExB + 2 orig. TI Joyst. + 
dt. Handbuch + 200 List + 

5 Bücher + alle TI-Revuen 
+ 60 P6 Maufkassette Preis 
480 DM. T. 02753/2109 


Verk. TI 99/4A 3 eingeb. 

64 KB, sehr gut erhalten 
+ ext. Basic + Schach + 

Recorder + Kabel + Joystick 

+ viele Bücher + viele Pro¬ 
gramme + 10 TI Revues. 

Nur komplett. VB 1000,— DM 
A. Wolf, Nürnberger Str. 161, 
8510 Fürth, Rückporto! 


Verkaufe billig Module 
20 - 45 DM u. Ex Basic 
120, Sprach-Synth. 80. 
R.Hombitzer.T. 020/721281 


Verk. Statistik, Baustatik 
neu a 50,— oder tausche 
gegen Versandliste. Suche 
RS 232 int. Ed. Ass. dt. 
Handb. 07586/636 


*** Suche Pole Position 
Modul evt. Tausch geg. 

Schach Modul. 0421/76027 
Ulli Gemmel, Berliner Str. 50, 
2800 Bremen 


Wer kann mir helfen? Suche 
Programme für meinen 
Streifendrucker *4 Farben; 
Printer/Plotter) MCP-40; 
damit ich Grafiken oder 
Bilder ausdrucken kann! 

T.06237/6569 


Verk. RS232C, int. Corcomp 
240 DM; 32 K, int. TI 240 
DM; Seikosha GP-55 OA 
VB 540 DM. T. 0251/664684 


Verkaufe: TI 99/4A + P-Box, 
32K.RS-232 Controller + 
Laufwerk, X-Basic DM 1000,— 
C. Rohde, Am Souty-Hof 27, 
6630 Saarlouis 


Wer tauscht mit mir Program¬ 
me? Liste an S. Altstadt, 
Hochstraße 23, 6913 Mühl- 
hausen-Re 


Suche: Schaltpläne (Konsole) 
Tech. Unterlagen (Konsole) 
sowie für XB oder XB II Plus 
Datenblätter für: TMS9900, 
TMS9929, TMS9901, 
MCM6810P, CD 3226, 
CD2155, CD2156, CD2157, 
SN9462, TIM9904, MK4116 
N-2GP (RAM). 

Michael Werner, auf der 
Kaule 4, 5060 Bensberg 
Refrath 


Verkaufe TI99/4A ca. 2 Jahre 
alt für 150,— DM. Jochen 
Schniering, Dresdnerstraße 7, 
6526 Alshem 06249/4419 


** Adv. Spiele von TI ** 
auf Cass. o. Disk. Speech 
Ed. + zero Zap + Buch 
Tl-Intern. Liste Prgr. m. 

T. Prgrm. T. 7141-461147 


** Neu *** Adventures ** 
Cap Canaveral. Ein Spiel 
für das adv. Modul — The 
Big Boiler — T. 07141- 
461147 


Achtugn 4432 Gronau 
Suche Ti-Besitzer zwecks 
Programm- und Erfahrungs¬ 
austausch. T. 02562/1362 


TI 994a + Ex.-Basic + Kas. 
s. Rek. + Joystick + über 
’ 200 Programme + Hand¬ 
bücher + Literatur DM 500 
auch einzlen. T. 06031 /14094 


Suche Kontakt zu anderen 
E/A Usern und tausche E/A 
Prgs. Giuseppe Rossoni, 

V. Scuole 18/c 
1-25125 Brescia 


Verk. TI + Rec.-Kabel + 
Abdeckhaube + ca. 120 
Disks; Jörg Storm, Chuist- 
leseeweg 34, Augsburg 
T.0821/63857 


ExtBasic = 165, Minimem = 
170, 2 Joyst = 25, Rec, Kbl. 
= 10, Module ab DM 10, 
Bücher ab DM 10. 

Tel. 069/521601 


Ich tausche Moonsweeper 
(Top Graphik, guter Sound) 
gegen Music Maker, Burger¬ 
time, Congo Bongo, Mash 
oder Video Chess. 

R. Reißer, Hauptstraße 6, 
8881 Binnungen 


Verkaufe: Modulexp. 60,— 
+ Pgm. Rec. 40,— + Speech 
Syn. 50,— + X-Basic 80,— 

+ Miniassembler 80,— 

T. 0281/51850 

Suche Joysticks (nicht von 
TI!!) und dazuhörenden 
Adapter möglichst günstig. 
Tel. 0203/772112 


Verk. TI 99 Kpl-Anlage mit 
sämtl. TI-Hard + Software. 
Interes. für Club. Fr 5000,— 
Ev. einzeln 
T. CH 01/8652290 


**Suche**Ext. Basic + 
Handbuch max. 120 DM 
Mini-Mem. + Handb. max. 
100 DM. Neumann Torf¬ 
stich 18, 4780 Lippstadt 
T. 02948/1850 

Suche: ganzes Gehäuse für 
TI-99/4A Angebote an 
F. Weil, Hohler Weg 28, 
5900 Siegen 


Suche: günstiges Ext. Basic 
Modul an Oliver Malfent, 
Fischböckau 79, 

A-4655 Vorchdorf 


Verk. TI99/4A m.Erw. Box + 
ExB + E/A + TEII + 32K — 
RAM + RS 232 + DSK. Contr. 
+ LW + Compiler + div. 

Disk u.v.a.m. Preis (VB 
2300,-) T. 040/6401376 


Verkaufe Personal Record 
Keeping und Personal Report 
Generator u. RS232 — Karte 
gegen Gebot. 

Heinz Herrmann, Ziegel¬ 
steinstraße 32, 85 Nürnberg 10 


ACHTUNG * ACHTUNG * 
Verk. TI 99/4A 3 Ex. Basic + 
Parsec + Org. TI Joyst. + 

2 Basic Lernkas. + Kas. Rec. 
Kabel + Bücher + Hefte 
(NICHT einzel) NP 1300,- 
VB 700,— Thomas Hoyer 
T. 06029/5068 ruft an. 


TI-Konsole mit Netzteil, 
Pal-Mod. und div. Progr. 
auf Kassette + Modul: 
Treasure Island DM 100,— 
09321-4636 


Suche f. TI 99/4A ext. Basic, 
verkaufe Joystickadapt. 10,— 
(Module): Munchmann 20,— 
Musik-Maker 40,—. House¬ 
hold Budget Management 
40,-. T. 05331/27125 


8-ung! Suche: Ext. Basic; 
Disk. Lauf. f. ca. 400 DM; 
007-Adventure; Sommer¬ 
game o. Wintergame; Verk.: 
Basiclernpro. 061/43 82 14 


Achtung: Suche: Spiele: 
Warlock; Socer Hardware: 
Dataphon ... Suche: Kontakt 
mit Tl-User, Ver: Basiclem. 
T. 061/45 82 14 


Suche Kontakt im Groß¬ 
kreis Landshut 
Stefan Kuttner, Schatz- 
hofenerstr. 2, 8301 Furth 
Also — TI-Fans, rafft euch 
auf! 


Epson-Drucker RX 80 neu 
(original verp.) 750,— DM 
Ralf Theile, 0209/784272 


Suche Thermopapier TI-PHA 
1950 (8,9 CM breit / 80 cm) 
für TI 99/4A-Thermodruck. 
PHP 1900. T. 07664-4822- 
Rückr. 


TI 99/4A + Exbasic + Cen¬ 
tronics + Datenverw. + 
Schach + Attack + Joyst. 

+ Rec.-Kabel + Cass. + Lit. 
VB 730,-. T. 0212/337222 


Suche defekte oder ganze TI- 
Hauptplatine oder Konsole. 
Suche Teac FDSSF im Tausch 
gegen Teax FD55B (2 x 40 
DSDD). Tausche Programme 
(Assembler). P.-K. Siegel, 
1000 Berlin 28, Huttenstr. 27, 
030/4013929 (ab 1.2.) 


Wer tauscht mit mir E/A 
Programme? Markus Jung¬ 
hanns, Magdeburger Str. 1, 
6054 Rodgau 3 
Tel.: 06106/74182 


Suche dringenst Ex.B. und 
Kontakt mit TI Freunde im 
Raum Wien. Günter Simoner, 
Baslerg. 50 - 66/431 

TI-99/4A Suche Disk-Con¬ 
troller und Disk-Manager. 
Angebote an: 

Markus Theimer, Schweden¬ 
straße 2, 6203 Hochheim 


„Suche Kontakt zu Tl-Writer- 
Usern. Alexander Rupp, 
Kalmanstr. 45, 66 Saar¬ 
brücken 2. 


Hallo TI99/4A Anwender! 
Verkaufe günstigst: Konsole, 
Peripherie Box, 32K Byte 
RAM, Diskettenlaufwerk 
(org. TI), Diskmanager (M), 
LOGO (M), Editor/Assembler 
(M, D, dt. Handbuch), Forth 
(D, Hb.), Super Duper 
Kopierer, ExBASIC 


MSX-MSX-MSX 
Suche billige Spiele Ralf 
Wohllebe, Staufenstraße 8, 
7250 Leonberg 5 


Verk. TI-Drucker GP 50 
mit Interface 500 DM 32K 
extern 150 DM. M. Witte, 
Wolfskamp 19, 2300 Molfsee 
T. 0431651784 


Verk. TI99/4A + P.-Box + 
128K + RS232 + 2 x Disk + 
Multiplan + Pascal kompl. 

+ TEII + Statistik Preis; 

DM 4950. T. 0511889046 


Suche für TI99/4A Joy¬ 
sticks + Adapter Ext. Basic, 
Schachmod. usw. billig zu 
kaufen. T. 0541/24451 
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Verk. TI-99/4A + XB + MM + 
2 Rec. Kabel + Joysticks + 

6 Bücher + viel Software + 
Invader + ... 600,— DM 
A. Mader, 069-783725 


Verkaufe TI-Diskkontroller 
mit 2 Laufwerken und DSK- 
Managermodul für 650 DM. 
Tel. 05363/7669 


Verk. TI mit X-Basic und 
anderen Modulen reichlich 
Zubehör und Literatur 
für 500 DM. 05221/84391 


Suche: Programm Sävlen- 
grafik aus Heft Computer¬ 
kontakt 5/85. Wer kann mir 
die Seiten kopieren? 

G. Wiesinger, Zohmann- 
gasse 42/10/12, 1100 Wien 


Hardware Radix-Assembler 
für 10,— Port + Cass. o. Dsk 
+ Handbuch 100,— Konsole 
100,— TIRecorder 60;— 
Geiserigk, 02361/31194 


TI-Module (Carwars 25,— 
Houshold—Budget-Manage¬ 
ment 50,—, Parsec 30,— 
Invaders 25- EXBASIC 
100,- Geserigk 02361/31194 


E/A Modul mit Handb. DM 
150,—, Munchman DM 30,—, 
Pole Position DM 50,—, 
Chisholm Trail DM 25,— 

R. Geserigk, 02361/31 194 


Verk. TI 99/4A, Extbas. 
Munchman. Joysticks, 
Rekorderkabel, Handbücher: 
DM 400,- ab 19 h 
Kramer 040/6015473 


TI 99/4A, Box, RS 232, 
Controller, 2 Slimline-LW 40/ 
80 TRK umschaltbar, Soft¬ 
ware, Preis VB 1800 DM 
Horst Grüning, Erlenweg 6, 
4350 Recklinghausen 


ASS.-Software für EXB. 
Minim. E/A: 2 B DSK-Kata- 
log mit eign. DSR-LNK u. 
Demos 25 DM. Eine DSK 
voller Rout. 35 DM. Cass. 
mit Util. 15 DM. 
04321/43741 nach 18 Uhr 


Tausche 32 K Erweiterung 
Ext. geg. RS 232 intern. 
Tel. 069/414539 


Verk. Sp. Synth. (95,—) 
od. tausche gg. 32K-RAM- 
Erw. (Ext.) + 25,— 

P. Koch, Poststr. 57, 

4755 Holzwickede 


TI 99/4A + RecKab + Ex 
Basic + Joys. + Literatur + 
TI Invaders für VB 400 DM 
Dieter Schafhuber, 

62 Hinterriss 7 / Tirol 


Verk. Kalenderprogr. für 
TI-Bas. + Routinen Display 
AT + Accept at. 8 K-F. 

10 DM geg. Vork. in CI. 
Kass. + Porto 

M. Robert, 5441 Wanderath 
Blumenweg 2 


Verkaufe Radix Minni Ass. 
110 oder tausche gegen Spr. 
Synt. Suche Drucker, Modem 
Peter Mertineit, In der Olk 20, 
5501 Gusterath 


Verkaufe * TI99 - 120,-, 
Mini-Memory 120,—, Speech- 
Synth. 100,—, Datenverw. 
je 15,—, Peri-Box + Disketten¬ 
laufwerk (defekt) usw. 

Tel. (0821) 488268 ab 19 h 


TI-99/4A, 32 KB, Disketten¬ 
laufwerk, Controller, Monitor 
Thermodrucker + Papier, 
Module: Ext. Basic II plus 
mit Grafik Parsec, TI Invaders, 
Othello Schachmeister, Mini- 
Memory 12 Disketten mit 
Prg. wegen Systemwechsel. 
02373/64343 


Verk. P.Box mit RS 232, 

32 K, Disc Controller, Lauf¬ 
werk alles original TI. Editor/ 
Assembler mit deutsch. 
Handbuch, Apesoft Software 
u.v.m. VB DM 1000,- 
Tel. 04230/1021 ab 18 h 


***Suche *** 

Expansions-Box für TI 99/4A 
möglichst günstig und funk¬ 
tionstüchtig 

P. Pirillo, Battonsstr. 30, 

6000 Frankfurt/M 


++++ ACHTUNG ++++ 
Suche Tl-User im Raum 
Marsberg/Diemelstadt 3 
Tel. 1219/02992 


ACHTUNG 

Schreibe ihre Programme auf 
Kassette ab 1 8 Uhr 
Tel. 02992/1219 


++++ ACHTUNG ++++ 

Drucke Ihre Programme: 
1 Progr. = 1.00 DM 
3 Progr. = 2.00 DM 
Tel. 1219/02992 


Verk. TI99/4A m. Ext. Basic 
+ Rec. Kabel + Joyst. + 
Adapter + 4 Module + 1 
Buch + Basic Lehrg. + ca. 

100 Prog. f. DM 450,- 
Tel. 0203/772247, Duisburg 


TI-99/4A-Konsole, Datasette, 
Zubehör, Div. TI-Rev. + 
Lernprogr.-Basic zu verkaufen. 
VB 250 DM. T.0421/4985676 


Verkaufe Peri-Box m. Disk- 
Controller und Disk-Laufwerk 
DM 700. N. Roeser, Goethe- 
str. 31, 8750 Aschaffenburg 


Verkaufe TI99/4A + Recor¬ 
derkabel + TI-Kassette 
komplett für 500 DM. 

Tel. 089 / 5705947 


Suche Tl-Spiele auf Kassette. 
Angebote bitte an: Dominik 
Esch, Hartenfelsweg 7, 

5000 Köln 71 


Suche günstig: Extended 
Basci Modul und Pal-Modu- 
lator. Tel. 04251/1623 


Verk.: TI 99/4A, Parsec, 

TI Invaders, Joyst., Rec + 
Kabel, div. Prg., div. Literatur 
VB 220,- 

M. Strietzel, von Loen 24, 
4535 Westerkappeln 
Tel. 05404/3118 


Verkaufe: TI99/4A + Recor¬ 
derkabel + Listings + 

30 Spile für 150,- DM 
Tel. 040/8702413 


Verkaufe Module: Statistik- 
Dat.-Verw. Tex. Spielmodule, 
X-Basic, Editor-Ass. GP 
100 A u. mehr. Tel. 040/ 

645 18 16 


Verk. TI Ext. Basic, Mini¬ 
mem. TE II, STa 3 Pers. 
Schach, RS212, 12K und 
vieles mehr. Angebote an 
Udo Jansen 0205446347 


TI-Komplettanlage zu ver¬ 
kaufen. Peribox + 1 Laufw. + 
32 KB + RS232 + XB + E/A 
+ 40 Disk mit +++ Softw. ++ 
05192/10223 


Drucke Ihre Programme und 
Listings von Cassette oder 
Diskette für DM 1,— / Seite 
aus. W. Kastens, Behlmer 51, 
2814 Engeln. T. 04252/1210 


TI 99/4A + X-Basic + Lcrn- 
p. + Rec. + Kabel + Joystick 
+ Software + Bücher, Zeitun¬ 
gen, Listings 500 DM ab 17 h 
02162/10747 


Achtung! Kons. Box + 32 K 
+ RS232 Laufw. + Contr. + 
Drucker + Synthcs. Ex-B- 
Disk-MII, Mini-M 7 Mod. 

5 Kass., 5 Bücher, DM 2600,— 
Tel. 06121 844659 


Verk.: TI 99/4A + P-Box + 
E/A. Paket + XB + 32 KKarte 
+ Monit + Centr + Modul 
Expand + Softw. 

Lothar Ziegler, Bucherstr. 23, 
8011 Kirchseeon 
Tel. 08091/2777 


Einmalig in die BRD. Verd. 
Diagnostic-Mod. (Seite 5, 
Heft 4/85) J.W. Stulen, De 
Roerdomp 5, Vriezen Veen 
Holl./0031549962650 


***** Achtung ********* 
Verkaufe original Extended 
basic mit dt. Handbuch 
DM 180,-. Tel. 08806/7372 


Tausche Progr. Liste gegen 
Rückumschlag — Zero Zap — 
TI Adventure — Spiele * 
Speech * Editor * Bücher 
07141-461147 


TI 99/4A + div. Origprog. 
z.B. Schachstatistiken, 
Finanzberater-Routine + 
div. Bücher. Preis 380,— 
DM, T. 02134/91027 


Recorderkabel DM 10 Spiel- 
progr. Selbst erstellen Bd. 

1 + 2 zus. DM 20, Listige 
Prog. DM 10, Tel. 06638/ 
1503 

MBJ multi Board Interface 
TI 99/4A auf Centronics für 
120 DM zu verkaufen (neu) 
T. 09281-42921 


*** TI-MODULE *** 


Pole Position 50 DM 

Video Games 15 DM 

Dateiverwaltung 40 DM 

Statistik 35 DM 


Quander, T. 0228 62 66 63 


*TI 99/4A* Wer tauscht mit 
dem TI-Tausch Service Prge. 
Info Gratis: M. Schenk- 
Rosenweg 4-7107 Bad F’hall 


WIR KAUFEN Ihre defekte * 
TI-Konsole und Peripherie zu 
Höchstpreisen, rufen Sie an, 
bevor Ihr TI in den Müllsack 
wandert. Bei Brose 02303/ 
65134 


Zu verschenken habe ich zwar 
nichts, aber will meinen TI 99 
mit Cassettenrekorder und 
Kabel für VB 170 DM kaufen? 
Telefon: 05521/62587 ab 
14 h. 


Verkaufe TI99/4A + einge¬ 
baute 64KB-Speichererw. 
aus TI-Revue, + Ext. Basic + 
Data-Recorder + Recorder- 
Kabel + Joystick’s + Schach + 
Bücher (99 Special I), TI 99/ 
4A intern, Tips u. Tricks, 
Handbuch Ext. Basci) + 11 
TI-Revue’s + Tl-Special I + II 
3 andere Literatur + viele Pro¬ 
gramme. Am liebsten kom¬ 
plett, aber auch einzeln. Preis 
Verhandlungssache. A. Wolf, 
Nürnberger Str. 161, 8510 
Fürth. 

TI 99 12 versch. Module und 
Kassetten; Spiele, Lernpro¬ 
gramme originallverpackt 
einzeln a DM 20, alle zusam¬ 
men 150 DM gegen V-Scheck 
von Kübler, Bergstr. 66, 

7332 Eislingen 
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für das Mini Memory 
TI-99/4 A Intern dt. 


MODULSOFTWARE 


PHERIPHERIE 

Discontroller (Orig. TI) 399,— 
RS 232 Karte (Orig. TI) 399,— 
RS 232 Karte (Atronic) 359,— 
P-Code-Karte (Orig. TI) 749, 
32 K-Karte (Atronic) 379,— 

Discontroller DSDD 
(Atronic) 489« 

Discontroller DSDD 
(Corcomp) 629,— 

Compact Peripherie System 
CPS 99 mit 1 Diskettenlaufwerk 
DSDD + 10 Disketten 1598,- 
Diskettenlaufwerk intern DSDD 
(Epson) mit Einbausatz 429- 
Externe 256 K-Erweiterung 589.- 
Externe 32 K-Erweiterung 239,- 
dto. +1 Centronicsschnittst. 289,— 
Externe 32 K-Erweiterung + 
Centronicsschnittstelle + Kabel 
+ Epsondrucker LX 80 1259,- 

dto. + Epsondrucker FX 85 1759,- 
dto. + Stardrucker SG 10 1279,- 
Sprachsynthesizer 189,- 

Modulexpander 3fach 125,- 

RGB-Modulator 179,- 

Akustikkoppler Dataphon S 21 d 
+ externe V-24-Schnittstelle 
+ Verbindungskabel 559,- 

Tl-Maus anschlußfertig 295,- 
Joystickinterface + 2 Joysticks 
Quickshot II 89,- 

Cassettenrecorderkabel 29,- 

MBX-Sprachsteuereinheit + 
Baseballmodul anschluß¬ 
fertig 349,- 

Grafiktablett Supersketch + 

Dig Dug + Defender + 

Statistik 199.- 


Extended Basic 

(dt. Nachbau) 199- 

Extended Basic II Plus 289,— 

Mini Memory + Assemblerhand-, 
buch Mini Memory dt. 269,— 

Editor/Assembler (32 K 
notw.) . 179, 

Tl-Writer (32 K notw.) 299, 

Tl-Logo II (32 K notw.) 299,- 

Miltiplan (32 K notw.) 259,— 

Diskfixer (Navarone) 149,— 

Terminal Emulator II 85.— 

Connect four, Yahtzee, Attack je 
Alpiner, Car Wars, Chisholm 
Trail, Othello, Invaders, Munch 
Man i e 39,— 

Blackjack, Fathom, Hopper, Dig 
Dug, Defender, Soccer, Parsec 

je 49,— 

Burgertime, Congo Bongo, Espial, 
Moonsweeper, Treasure Island, 
Microsurgeon, Bigfoot, 

Statistik je 59,— 

Star Trek, Tunnels of doom, 

Touch Typing Tutor je 69,— 
Buck Rogers, Returrr to Pirat’s 
Isle, Adventuremodul, Video 
Chess i e 75,— 

Datenverwaltung + Analyse 79, 
Popeye, Jungle Hunt, Moon 
Patrol, Ms. Pacman, Pole Position, 
Donkey Kong, Protector II, 

Shamus Je 89,— 

Video Chess + Defender + 

Dig Dug nur 129,— 

Alpiner + Munch Man + Micro¬ 
surgeon nur 119,— 

DISKETTEN-UND 
CASSETTENSOFTWARE 

Superbasic, Exbasic II + Painter, 
Extended Basic Compiler, 
Graphicmaster, 3D-World, Forth, 
Apesoft-Programme, Flug¬ 
simulation, Skat, ,,Der schwarze 
Kristall“ aA - 


...für den Kauf von 

Wohlfahrtsbriefmarken 

Ihrem Porto mit^Sf!!? 
Herz & Verstand. JTirr 


BÜCHER 

Editor/Assembler Handbuch 
dt. 98 

Tl-Basic & Extended Basic 

dt. . *1 

Mini Memory Spezial dt. 5- 
TMS 9900 Assemblerhandbuch 


Deutscher Caritasvertiand 


Arbeite rwohlfahrt 


Deutscher Paritätischer 
Wohlfahrtsverband 


Deutsches Rotes Kreuz 


Zentralwohlfahrtsstelle 
der Juden in Deutschland 


Diatonisches Werk 
der EKD 


Die nächste 

TJ-REVUE 

erscheint am 26. März 


CSV RIEGERT 


Schloßhofstr. 5, 7324 Rechberghausen, Tel. (07161) 5 28 89 


IMMER NEU UND AKTUELL FÜR TI 99/4A 


4-FARBEN-PRINTER-PLOTTER PR-A a. uenironic-ounn,.^ 

qin-A 4-For’mat. Direktanschluß an 32-k- oder 128-k-R/^M-Er- 
weiterung 

ANSCHLUSSKABEL _ 

von 32-k- oder 128-k-RAM an PP-A 4 88- 

SLIM-UNE-LAUFWERK 5.25". 500-k-Byte-DS/DD 
(z. B. TEAC FT 55 B) 399, ^° _ 

EINBAUSATZ für 2 Laufwerke in original Tl-P-Box 95.— 

DISC-STEUERKARTE (CorComp). DS/DD, für max. ^ _ 

QU?c!T-DISC-FLOPPY (im Gehäuse), zum Direktanschluß an die 
Konsole, kein« Steuerkart« «rtord«rlich. 128-k-Byte-DS. für 


Umbauaktion (gilt nur für deutschen Lizenznacl 
chen aus Ihrem EXTENDED-BASIC ein EXTENI 
schem Handbuch 

32-k-RAM-ERWEITERUNG mit Centromc-Intei 
x 110 x 60 mm zum seitlichen Anstecken an 
rechts durchgeschleift, mit 5-V-Steckernetzteil 

Unser Pakef preis-Angebot 
EXTENDED-BASIC II PLUS + 

Centronic-Interface 
128-k-RAM-ERWEITERUNG. 

5-V-Steckernetzteil 
Die Weitneuheit: 128 kB — 

Lieferbar etwa Janur 1986 

Preise in DM/Stück inkl. MwSt. • Technische Änderungen Vorbehalten 
Versand gegen Nachnahme oder Vorauskasse. 


32-k-RAM-ERWEITERUNG. ohne 
für nur 499.50' 
mit Centronic-Interface und 
499,50 

QRAM Preis ca. 745,— 


NEU! 

NEU 





